Question

ПОМОГИТЕ, ОЧЕНЬ СРОЧНО, ПОЖАЛУЙСТА, ПРОШУ ВАС, С ОБЪЯСНЕНИЕМ !!! ЗАРАНЕЕ СПАСИБО ЗА ВАШ ТРУД И ПОМОЩЬ
Паскаль!!! ​

Answer 1

Ответ:

pascal

Объяснение:

var

 i, n, k, s : integer;

 a: array of integer;

begin

 Write('Введите размер массива: ');

 ReadLn(n);

 SetLength(a, n);

 WriteLn('Введите элементы массива:');

 for i := 0 to n - 1 do

 begin  

   ReadLn(a[i]);

   if a[i] < 5 then

   begin

     k := k + 1;

     s := s + a[i];

   end;

 end;  

 WriteLn('Количество элементов, меньших 5, равно ', k);

 WriteLn('Их сумма равна ', s);

end.