Const nx=30;mx=30;
var i,j,n,m:integer;A:array[1..nx,1..mx] of integer;B,D:array[1..nx] of integer;
begin
write('Введите n');Readln(n);
write('Введите m');Readln(m);
for i:=1 to n do begin
for j:=1 to m do вegin
A[i,j]:=random(100)-20;
write(A[i,j]:4);end;writeln;end;writeln;
for i:=1 to n do begin
for j:=1 to m do begin
if (A[i,j] mod 3 =0) then begin
B[i]:= B[i] + A[i,j];write(A[i,j]:4);D[i]:= D[i] + 1;end;end;writeln;end;
for i:=1 to n do begin
if (B[i]=0) and (D[i]= 0) then B[i]:= -10;
write(B[i]:4);end;<span>end.</span>
Var
i, j: integer;
ar: array[1..5, 1..5]of real;
b: boolean; //объявление переменных
begin
for i := 1 to 5 do
for j := 1 to 5 do read(ar[i, j]); //ввод матрицы
for i := 1 to 5 do
begin
b := true;
for j := 1 to 2 do
if(ar[i, j] <> ar[i, 5 - j + 1]) then //проверяем равен ли 1 элемент 1 строки
// последнему элементу 1 строки, 2 элемент 1 строки и 5-1 элемент
//если они неравны то выходим из одного цикла
begin
b := false; //б -ложь значит строка не симметрична
break;
end;
if(b = true) then write(i, ' '); //если б -истина выводим номер строки
end;
end.
Ответ:
1101 (2) -> 1*2^0 + 2^2+2^3 = 1+4+8 = 13
8 (16) -> 8 (10)
13 + 8 = 21
21 (10) -> 10101 (2)
Ввод: микрофон, вебкамера, тачпад, сканер, клавиатура
Вывод: монитор, принтер, колонки, плоттер
Хранение: юсб-накопитель, жесткий диск