Решите задачу в паскале программа джини

найдите полупроизведение всех положительных элементов массива

Question

Информатика

Тася

20 июля, 18:32

Решите задачу в паскале программа джини

найдите полупроизведение всех положительных элементов массива

+4

Ответы (1)

Знаете ответ на вопрос?

Эрнестина · Answer 1

Может быть это? 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.

Решите задачу в паскале программа джининайдите полупроизведение всех положительных элементов массива

Решите задачу в паскале программа джини

найдите полупроизведение всех положительных элементов массива