Информатика, опубликовано 2018-08-22 20:18:48 by Гость
Решите задачу в паскале программа джининайдите полупроизведение всех положительных элементов массива
Ответ оставил Гость
Может быть это? 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на