помогите, пожалуйста, написать програмку в паскале!( дан массив из 20 чисел. подсчитать кол-во чисел, сумма цифр которых больше 10. функция вернет 0, если сумма цифр меньше или равна 10, и вернет 1, если сумма цифр больше 10.

1

Ответы и объяснения

2013-11-26T13:04:31+00:00
Program znanija_com;
const
  n = 20;
  rnd = 30;
type
  tArray = array[1..n] of integer;
var
  arr : tArray;
  i, sum : integer;
Function Number(num:integer):real;
Begin
  if num > 10 then Number:=1
    else Number:=0;
End;
begin
  randomize;
  writeln ('Исходный массив:');
  for i:=1 to n do begin
    arr[i] := random(rnd);
    writeln(i, ' - элемент равен ', arr[i]);
    if Number(arr[i]) = 1 then sum := sum + 1;
  end;
  writeln('Количество элементов которые больше 10 - ', sum);
  readln();
end.