Дан одномерный массив, число элементов не превышает 10. Найти сумму элементов больших 4

Категория: Delphi/Pascal

2011-08-28 21:01:18

code: #pascal

var
  a: array [1..10] of integer;
  i,sum: integer;
begin
  sum := 0;
  for i := 1 to 10 do
    if (a[i] > 4)then sum := sum + a[i];
end;

Поделиться:

Sample Code