Про какой принтер можно сказать, что он не печатает, а выращивает? ! !

Question

Информатика: Про какой принтер можно сказать, что он не печатает, а выращивает? ! !

kirillsysoev2 · Accepted Answer

Program Begenjov1997;

const

n = 30; {Количество элементов массива}

m = 10000; {Максимально возможное значение элемента}

var

a:array[1..n] of integer;

i, sum: integer;

s:string;

begin

s:=' -=Alphaeus=- ';

for i:=1 to 22 do begin write(s[i]); sleep(60) end;

{заполняем массив случайными числами}

writeln; randomize;

for i:=1 to n do a[i]:=random(m+1);

{Ищем максимальный и минимальный элементы}

sum:=0;

for i:=1 to n do

if (a[i]<200) and (a[i] mod 5 = 0) then sum:=sum+a[i];

{Заменяем эти элементы найденной суммой}

for i:=1 to n do

if (a[i]<200) and (a[i] mod 5 = 0) then a[i]:=sum;

{Вывод}

writeln;

for i:=1 to n do writeln(a[i]);

end.