Информатика, опубликовано 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на