Мальчик решил, что без антивирусной программы компьютер будет работать быстрее, и удалил её. После этого. - id1409664420220724 от Зейна12 24.07.2022 17:30

Question

Информатика: Мальчик решил, что без антивирусной программы компьютер будет работать быстрее, и удалил её. После этого. как только он зашёл в Интернет, на компьютер проник вирус. Вредоносная программа каждые 2 секунды уничтожал 40 Мбайт информации. Сколько секунд вирусу, чтобы уничтожить 2,5 Гбайта информации?

Зейна12 · Accepted Answer

Var a,max,sum:integer;
arr:array [0..2015] of integer;
begin
randomize;
max:=-500;
sum:=0;
for a:=0 to 2015 do begin
arr[a]:=random(1001)-500;
if max<arr[a] then max:=arr[a];
end;
write('максимальный элемент массива ==> ',max);
writeln();

if max mod 2 = 1 then begin
for a:=0 to 2015 do begin
if arr[a] mod 2 =1 then sum:=sum+arr[a];
end;
writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum);
end;

sum:=0;
if max mod 2 = 0 then begin
for a:=0 to 2015 do begin
if arr[a] mod 2 =0 then sum:=sum+arr[a];
end;
writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum);
end;

end.

MOGZ ответил