• Задача на Паскаль:в одномерном массиве А(10) определить сумму и количество элементов,которые меньше 5.

Ответы 2

  • На будущее: не выставляйте задач, где надо писать программы, за 5 баллов, потому что за такие баллы обычно их никто не решает.
  • const  n=10;var  a:array[1..n] of integer;  i,s,k:integer;begin  Randomize;  Writeln('Исходный массив');  s:=0; k:=0;  for i:=1 to n do begin    a[i]:=Random(31)-10;    Write(a[i]:4);    if a[i]<5 then begin Inc(k); s:=s+a[i] end    end;  Writeln;  Writeln('Элементов, меньших 5: ',k,', их сумма равна ',s)end.ПримерИсходный массив  18  18   9  -7   2 -10   9  16  11  -7Элементов, меньших 5: 4, их сумма равна -22
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years