Составить программу для решения задачи.Найти сумму всех положительных элементов массива,состоящего из семи элементов.
Ответы
Ответ дал:
0
var
i, s:integer;
a: array [1..7] of integer;
begin
for i:=1 to 7 do
begin
writeln('Введите эл. массива A[', i, ']');
readln(A[i]);
end;
for i:=1 to 7 do
if a[i]>0 then s:=s+a[i];
writeln('Сумма всех положительных элементов массива: ', s);
end.
Ответ дал:
0
Огромное Вам спасибо!!!!!Удачи Вам!
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад