var a:array[1..1000] of integer;
i,n,sum:integer;
begin
writeln ('vvedite kol elementov');
readln(n);
writeln ('vvedite elementi');
for i:=1 to n do begin
readln(a[i]);
end;
sum:=0;
for i:=1 to n do begin
if (a[i]>0) then sum:=sum+a[i];
end;
writeln(sum); readln;
end.
за объявление
за объявление
за начало программы
за вывод
за ввод
за вывод
за начало цикла
за ввод
за конец цикла
за присваивание
за начало цикла
за сравнение и присваивание
за конец цикла
за вывод
за конец программы
var a:array[1..1000] of integer; // Объявление переменной
i,n,sum:integer; // Объявление переменных
begin //Открытие логической скобки
writeln ('vvedite kol elementov'); //Вывод на экран
readln(n); //Ввод с клавиатуры
writeln ('vvedite elementi'); //Вывод на экран
for i:=1 to n do begin //Начало цикла и открытие логической скобки
readln(a[i]); //Ввод с клавиатуры
end; // Закрытие логической скобки
sum:=0; //Присваивание
for i:=1 to n do begin //Начало цикла и открытие логической скобки
if (a[i]>0) then sum:=sum+a[i]; //Проверка условия, присваивание, вычисления
end; // Закрытие логической скобки
writeln(sum); readln; //Вывод на экран и ввод с клавиатуры
end. // Закрытие логической скобки и конец программы
⇢