Задача №1 var a:array[1..4, 1..5] of integer; i,j,k:integer; begin writeln('Заполните матрицу'); for i:=1 to 4 do for j:=1 to 5 do begin read(a[i,j]); if (a[i,j] mod 3=0) and (a[i,j]>20) then k:=k+a[i,j]; end; writeln('Сумма элементов кратных 3-м и > 20 = ',k); end.
Задача №2 var a:array[1..5, 1..5] of integer; i,j,k:integer; begin writeln('Заполните матрицу'); for i:=1 to 5 do for j:=1 to 5 do begin read(a[i,j]); if i=j then k:=k+a[i,j]; end; writeln('Сумма элементов главной диагонали = ',k); end.
//Задание №1 //PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) const m = 31; var a:array[1..m] of integer; i,s,n:integer;
begin for i:=1 to m do begin a[i]:=random(-20,20); if a[i]>0 then begin s:=s+a[i];n:=n+1; end; end; println('Температуры за месяц :'); a.println; writeln('Средняя в оттепель :',s/n:0:3); end.
Тестовое решение: Температуры за месяц : 16 7 19 -7 -18 6 12 -18 -5 -10 8 -4 10 4 10 5 -3 14 -7 -8 2 7 4 -7 18 4 -12 -5 -9 7 -5 Средняя в оттепель :9.000
//Задание №2 //PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) const m = 10; var a:array[1..m] of integer; i,s,n:integer;
begin for i:=1 to m do begin a[i]:=random(-20,20); if i mod 2<>0 then s:=s+a[i]; end; writeln('Исходный массив :'); a.println; for i:=1 to m do if i mod 2=0 then a[i]:=s; writeln('Сумма на нечетных местах = ',s); writeln('Изиененный массив :'); a.println; end.
var a:array[1..4, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 4 do
for j:=1 to 5 do begin
read(a[i,j]);
if (a[i,j] mod 3=0) and (a[i,j]>20) then k:=k+a[i,j];
end;
writeln('Сумма элементов кратных 3-м и > 20 = ',k);
end.
Задача №2
var a:array[1..5, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 5 do
for j:=1 to 5 do begin
read(a[i,j]);
if i=j then k:=k+a[i,j];
end;
writeln('Сумма элементов главной диагонали = ',k);
end.