Подсчитать сумму элементов массива больше нуля - Turbo Pascal

Формулировка задачи:

Ввести с клавиатуры одномерный массив из 5 чисел , подсчитать сумму элементов больше нуля и вывести результат на экран монитора.

Код к задаче: «Подсчитать сумму элементов массива больше нуля - Turbo Pascal»

textual
var
  A: array [1..5] of integer;
  k, i, sum: integer;
 
begin
  for i := 1 to 5 do
    readln(A[i]);
  sum := 0;
  k := 0;
  for i := 1 to 5 do
    if A[i] > 0 then
    begin
      sum := sum + A[i];
      inc(k);
    end;
  if k <> 0 then
    writeln('Summa = ', sum)
  else  
    writeln('Нет положительных чисел.');
end.

5   голосов, оценка 4.600 из 5


СОХРАНИТЬ ССЫЛКУ