Почему возникает необходимость архивирования информации? 25 .!

Question

Информатика: Почему возникает необходимость архивирования информации? 25 .!

bezin2000 · Accepted Answer

Program z1;
var a:array[1..100] of integer;
n,i:byte;ma:integer;
begin
write('n=');readln(n);
for i:=1 to n do begin
write(i,')');readln(a[i])
end;
ma:=a[1];
for i:=1 to n do begin
if a[i]>ma then begin
ma:=a[i]
end
end;
for i:=1 to n do begin
a[i]:=ma
end;
writeln('test n=',n);
for i:=1 to n do begin
writeln(a[i])
end;
readln
end.

MOGZ ответил