Втаблице dat хранятся данные ежедневных измерений температуры морской воды (dat[1] − температура в понедельник, - id973177420210504 от Graffiti1337 04.05.2021 03:56

Question

Информатика: Втаблице dat хранятся данные ежедневных измерений температуры морской воды (dat[1] − температура в понедельник, dat[2] − во вторник и т. определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования. алгоритмический язык алг нач целтаб dat[1: 7] цел k, day dat[1] : = 19; dat[2] : = 21 dat[3] : = 20; dat[4] : = 23 dat[5] : = 24; dat[6] : = 25 dat[7] : = 23 day : = dat[1] нц для k от 1 до 7 если dat[k] day то day : = dat[k] все кц вывод

Graffiti1337 · Accepted Answer

1)

var a:array[1..20] of integer;
max,min,n,i:integer;
begin

randomize;
n:=20;
for i:=1 to n do a[i]:=random(150);
begin
min:=a[1];
for i:=1 to n do if a[1]>a[i] then min:=a[i];
end;
begin
max:=a[1];
for i:=1 to n do if a[1]<a[i] then max:=a[i];
end;
writeln(min);
writeln(max);
end.

2)

const n=5;
var x: array[1..n,1..n] of integer;
i,j,s: integer;
begin
randomize;
writeln('Matrisa:');
for i:=1 to n do
begin
for j:=1 to n do
begin
x[i,j]:=random(200);
write(x[i,j]:5);
end;
writeln
end;
j:=8;
for i:=1 to n do
begin
j:=j-1;
s:=s+x[i,(n+1-i)];
end;
writeln('Summa: ',s);
end.

MOGZ ответил