Информатика, опубликовано 2018-08-22 22:34:48 by Гость

Найдите сумму положительных элементов заданного массива, содержащего 5 чисел

Ответ оставил Гость

Var
a: array [1..5] of integer;
s, i: integer;
begin
for i:=1 to 5 do
begin
write(Введите значение: );
read(a[i]);
if a[i]>0 then s:=s+a[i];
end;
writeln(Сумма положительных членов массива: , s);
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.