Регистрация
cnejniyrayp08ixm
03.10.2021 03:34
Информатика
Есть ответ 👍

Составить алгоритм замены всех элементов целой линейной таблицы а[1..n] кратных пяти на единицу

239
457
Посмотреть ответы 1

Ответы на вопрос:

lolmol
lolmol
4,4(10 оценок)

Program massiv;

Const n=100;

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

   i,s:integer;

Begin

s:=0;

For i:=1 to n do

Begin

 a[i]:=i*i;

 Write(a[i]:6);

 s:=s+a[i];

end;

WriteLn;

Write('Сумма=',s);

end.

если бы тут был коллаб...

Популярно: Информатика