Решите задачу в паскале программа джининайдите полупроизведение всех положительных элементов массива
Решите задачу в паскале программа джини
найдите полупроизведение всех положительных элементов массива
Гость
Ответ(ы) на вопрос:
ГостьМожет быть это? pascal:
var a: array [1..20] of integer;
i, k: integer;
s: real;
begin
// заполняем массив c клавиатуры
for i:=1 to 20 do
readln(ar);
//считаем среднеариф-е
s := 0;
k := 0;
for i:=1 to 20 do
if a >=0 then begin
s := s + a;
k := k + 1;
end;
writeln('среднее: ', s/k);
end.
Не нашли ответ?
Похожие вопросы