решите задачу в паскале программа джини
найдите полупроизведение всех положительных элементов массива
Ответы на вопрос
Ответил Ven6kо
0
Может быть это? 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.
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.
Ответил Katya897654321
0
это не правильно
Новые вопросы