Информатика: Разгодайте ребус ! пила, роза, 1г,а

olegykoleg

01.07.2021 19:51

Информатика

Есть ответ 👍

Разгодайте ребус ! пила, роза, 1г,а

176

376

Посмотреть ответы 3

Ответы на вопрос:

Polinakovta

Информатика

4,5(76 оценок)

відповідь: программа

пояснення:

dayana20072

Информатика

4,8(29 оценок)

Lider4k

Информатика

4,7(95 оценок)

Var a: array [1..10] of integer; i,count: integer; s: real; begin //тут ты заполняешь массив как тебе надо s: =0; count: =0; for i: =1 to 10 do begin if a[i]< > 0 then begin //если элемент ненулевой то s: =s+s; //суммируем их и увеличиваем счетчик на 1 count: =count+1; end; end; s: =s/count; writeln('среднее значение=', s: 0: 0); end.