Ввести с клавиатуры массив из 5 элементов ,найти в среднее арифметическое всех отрицательных элементов массива.​

10ЛК 10ЛК    1   11.04.2019 20:13    1

Ответы
Рапунцель06 Рапунцель06  29.05.2020 07:47

program ;

uses crt;

var

k,i:integer;

s:real;

a:array[1..5] of integer;

begin

for i:=1 to 5 do

begin

  readln(a[i]);

  if a[i] < 0 then begin

                           s:=s+a[i];

                           k:=k+1;

                           end;  

end;

if k=0 then writeln('error')

        else  writeln(s/k);

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
kristinavlasovа kristinavlasovа  29.05.2020 07:47

Код на PascalABC.Net дан в приложении.


Ввести с клавиатуры массив из 5 элементов ,найти в среднее арифметическое всех отрицательных элемент
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика