Const m=10; n=8; var a:array[1..m,1..n] of integer; i,j:integer; begin Randomize; Writeln('Исходный массив'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(20)+10; Write(a[i,j]:3) end; Writeln end; Writeln('Результирующий массив'); for i:=1 to m do begin for j:=1 to n do begin if a[i,j] mod 5=0 then a[i,j]:=2*a[i,j] else a[i,j]:=3*a[i,j]; Write(a[i,j]:3) end; Writeln end end.
Var a,i,k1,k2,s1,s2:integer; begin for i:=1 to 3 do begin readln(a); if a>0 then begin writeln('Число ',a,' положительное'); k1:=k1+1; s1:=s1+a; end else if a<0 then begin writeln('Число ',a,' отрицательное'); k2:=k2+1; s2:=s2+a; end; end; writeln('Количество положительных = ',k1,', их сумма = ',s1); writeln('Количество отрицательных = ',k2,', их сумма = ',s2); end.
Пример: 15 Число 15 положительное -74 Число -74 отрицательное 28 Число 28 положительное Количество положительных = 2, их сумма = 43 Количество отрицательных = 1, их сумма = -74
m=10;
n=8;
var
a:array[1..m,1..n] of integer;
i,j:integer;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(20)+10;
Write(a[i,j]:3)
end;
Writeln
end;
Writeln('Результирующий массив');
for i:=1 to m do begin
for j:=1 to n do begin
if a[i,j] mod 5=0 then a[i,j]:=2*a[i,j]
else a[i,j]:=3*a[i,j];
Write(a[i,j]:3)
end;
Writeln
end
end.
Пример решения
Исходный массив
12 10 12 20 17 17 28 23
22 27 28 14 23 10 26 15
29 13 10 29 26 11 17 24
10 14 17 24 16 12 22 28
17 25 26 24 25 22 17 23
18 11 20 12 28 29 25 13
26 11 28 19 17 27 22 10
22 17 20 12 10 13 17 19
14 10 27 28 13 11 20 16
26 16 21 24 20 15 26 10
Результирующий массив
36 20 36 40 51 51 84 69
66 81 84 42 69 20 78 30
87 39 20 87 78 33 51 72
20 42 51 72 48 36 66 84
51 50 78 72 50 66 51 69
54 33 40 36 84 87 50 39
78 33 84 57 51 81 66 20
66 51 40 36 20 39 51 57
42 20 81 84 39 33 40 48
78 48 63 72 40 30 78 20