Регистрация
milkivey3
30.05.2022 07:02
Информатика
Есть ответ 👍

ОЧЕНЬ УМОЛЯЮ СДЕЛАЙТЕ

241
452
Посмотреть ответы 1

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

тоня119
тоня119
4,8(26 оценок)
//pascal const n = 10; var       a: array[1..n] of integer;       i, k, s: integer; begin //для теста заполним массив сл. значениями   s: =0; k: =0;       for i: =1 to n do begin               a[i] : = random(11);               write(a[i]: 4);               if (i mod 2 = 0) then begin                   s: =s+a[i];                   k: =k+1;               end;             end;       writeln;       writeln('среднее арифметическое ', s/k); end.

Популярно: Информатика