Предмет: Информатика, автор: НикерТвист

Помогите пожалуйста с задачей на тему "Циклы".
Задание во вложении.
Выполнить в паскале!

Приложения:

Ответы

Автор ответа: ManulTheLiar
0
Program prog;
uses crt;
var a:array[1..201] of integer;
    s,i: integer;


begin
clrscr;

for i:=1 to 201 do
a[i]:=i+100;


for i:=1 to 201 do begin
if a[i] mod 2=1 then begin
s:=s+a[i];
write(a[i],' ');
 end;
 end;

writeln;   writeln;
writeln('Сумма s = ', s);
 
 end.  

Похожие вопросы
Предмет: Русский язык, автор: STARdas
Предмет: Английский язык, автор: ElenaPisk