1.
А) Истина
Б) Истина
В) Ложь
Г) Истина
Д) Ложь
2.
d f d^f d\/f -d -f
1ложь ложь ложь ложь истина истина
2ложь истина ложь истина истина ложь
3истина ложь ложь истина ложь истина
4истина истина истина истина ложь ложь
Var x,y,z:integer;
begin
x:=13;
y:=3;
z:=x;
x:=z div y;
y:=x;
writeln(x+' '+y+' '+z);
end.
Ответ
<span>3)x=4, y=4, z=13</span>
Const N = 50;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
S:=S+A[i]
End;
WriteLn;
WriteLn('Sr = ',S/N);
End.
Пример:
Исходный массив: 4 2 -2 -4 -7 7 -9 6 -10 10 -4 -4 -5 3 0 -2 -3 0 -4 9 -1 -4 -2 -4 -9 2 2 -10 -8 -2 -8 -7 6 2 -9 7 2 -10 -10 -4 -9 -7 -2 -10 2 1 -3 6 0 0
Sr = -2.04
Компьютер будущего будет, скорее даже не компьютером в нашем понятии, а отдельной сферой жизни. Это будет общедоступная сеть, связываться и управлять которой можно будет с помощью мысленных сигналов-импульсов, либо голосовых команд. Как таковое устройство будет представлять из себя микрочип, подсоединенный к организму с помощью которого можно будет выходить в это виртуальное пространство, функции которого будут объединять усовершенствованное подобие интернета, и множество уже существующих и новых функций компьютера, телефона, прочей техники и программного обеспечения в принципе.
uses crt;
var
a:array [1..100,1..100] of real;
n,m,k:integer;
begin
clrscr;
randomize;
write('N='); read(n);
write('M='); read(m);
for n:=1 to n do
for m:=1 to m do
a[n,m]:=random(100)-50;
for n:=1 to n do
begin
for m:=1 to m do
write(a[n,m],' ');
writeln;
end;
for n:= 1 to n do
begin
k:=0;
for m:= 1 to m do
begin
if a[n,m]<0 then
k:=k+1;
end;
writeln('К<span>ол-во отрицательных элементов '</span><span>,n</span><span>,</span><span>' строки: '</span>,k);
end;
end.