Delphi
Подсчитать сумму всех положительных (не равных нулю) элементов заданного целочисленного
массива размером 20 элементов, в предположении, что в массиве есть хотя бы один отрицательный
Как решить данную задачу?
Подсчитать сумму всех положительных (не равных нулю) элементов заданного целочисленного
массива размером 20 элементов, в предположении, что в массиве есть хотя бы один отрицательный
Как решить данную задачу?
More Questions From This User See All
Answers & Comments
Verified answer
Ответ:
program SumArray;
var
a: array [1..20] of Integer;
i, s: Integer;
begin
Randomize;
for i := Low (a) to High (a) do begin
a [i] := Random (10) - 2;
Write (a [i] :3);
end;
s := 0;
for i := Low (a) to High (a) do begin
if a [i] > 0 then
s := s + a [i];
end;
WriteLn;
WriteLn ('Сумма = ', s);
ReadLn;
end.