1)
const n=31;
var a:array[1..n] of integer;
i,s,k:integer;
begin
Randomize;
for i:=1 to n do
a[i]:=random(41)-20;
write(a[i]:4);
end;
writeln;
s:=0; k:=0;
if a[i]>0 then begin s:=s+a[i]; k:=k+1; end;
writeln('Средняя температура дней с оттепелью = ',s/k:4:2);
end.
Пример:
-7 4 17-13 20 -8 12 11 15-17 -5 15-17 -4 14-12 3-20 6 -8-14 -8 18 17 6 -9 16 10 17 20-15
Средняя температура дней с оттепелью = 13.00
2)
const m=10;
var a:array[1..m] of integer;
i,s:integer;
for i:=1 to m do
a[i]:=random(21);
s:=0;
if i mod 2 = 1 then s:=s+a[i];
writeln('s = ',s);
if i mod 2 = 0 then a[i]:=s;
for i:=1 to m do write(a[i]:4);
14 9 0 8 6 2 2 16 1 16
s = 23
14 23 0 23 6 23 2 23 1 23
Подробнее - на -
const n=5;
var a:array[1..n,1..n] of integer;
i,j,k,m:integer;
for j:=1 to n do
a[i,j]:=random(599)-299;
write(a[i,j]:5)
writeln
for i:=1 to n do if a[i,3]>0 then k:=k+1;
if k>0 then writeln('В 3-ем столбце количество положительных элементов равно: ',k)
else writeln('В В 3-ем столбце нет положительных элементов');
m:=a[1,1];
if a[i,j]>m then m:=a[i,j];
if a[i,j] mod 2 = 0 then a[i,j]:=m;
1)
const n=31;
var a:array[1..n] of integer;
i,s,k:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(41)-20;
write(a[i]:4);
end;
writeln;
s:=0; k:=0;
for i:=1 to n do
if a[i]>0 then begin s:=s+a[i]; k:=k+1; end;
writeln('Средняя температура дней с оттепелью = ',s/k:4:2);
end.
Пример:
-7 4 17-13 20 -8 12 11 15-17 -5 15-17 -4 14-12 3-20 6 -8-14 -8 18 17 6 -9 16 10 17 20-15
Средняя температура дней с оттепелью = 13.00
2)
const m=10;
var a:array[1..m] of integer;
i,s:integer;
begin
Randomize;
for i:=1 to m do
begin
a[i]:=random(21);
write(a[i]:4);
end;
writeln;
s:=0;
for i:=1 to m do
if i mod 2 = 1 then s:=s+a[i];
writeln('s = ',s);
for i:=1 to m do
if i mod 2 = 0 then a[i]:=s;
for i:=1 to m do write(a[i]:4);
writeln;
end.
Пример:
14 9 0 8 6 2 2 16 1 16
s = 23
14 23 0 23 6 23 2 23 1 23
Подробнее - на -
const n=5;
var a:array[1..n,1..n] of integer;
i,j,k,m:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(599)-299;
write(a[i,j]:5)
end;
writeln
end;
writeln;
for i:=1 to n do if a[i,3]>0 then k:=k+1;
if k>0 then writeln('В 3-ем столбце количество положительных элементов равно: ',k)
else writeln('В В 3-ем столбце нет положительных элементов');
writeln;
m:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]>m then m:=a[i,j];
for i:=1 to n do
begin
for j:=1 to n do
begin
if a[i,j] mod 2 = 0 then a[i,j]:=m;
write(a[i,j]:5)
end;
writeln
end;
writeln;
end.