Kazantsevv_kostya

03.03.2023

40! Найти среднее арифметическое массива var o:array[1...5] of integer; i, s, n:integer; s:real; begin s:=0; n:=5; for i:=1 to 5 do begin readln(o[i]); s:=s+o[i]; sr:=s/n; end. Подправить чтобы было правильно.

Информатика

Ответить

Ответы

tata-novik

03.03.2023

var o:array[1..5] of integer;

i,s,n:integer;

sr : real;

begin

s:=0;

n:=5;

for i:=1 to 5 do

begin

readln(o[i]);

s:=s+o[i];

end;

sr:=s/n;

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

40! Найти среднее арифметическое массива var o:array[1...5] of integer; i, s, n:integer; s:real; begin s:=0; n:=5; for i:=1 to 5 do begin readln(o[i]); s:=s+o[i]; sr:=s/n; end. Подправить чтобы было правильно.

▲

40! Найти среднее арифметическое массива var o:array[1...5] of integer; i, s, n:integer; s:real; begin s:=0; n:=5; for i:=1 to 5 do begin readln(o[i]); s:=s+o[i]; sr:=s/n; end. Подправить чтобы было правильно.

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

Сколько кбайтов составляют 2^17 битов?

Написать программу для заполнения линейного массива случайными числами с некоторого отрезка [a, b]. в с++

1) Разверни числа:а) 81 б) 524 в) 341, 6г) 89, 11

Вариант 5 . составить блок-схему

сор нужно умоляю вас люди вы где

Написать программу решения квадратных уравнений. вычисление d оформить процедурой (паскаль

Определите значение переменной c после выполнения следующего фрагмента программы a: =-5 b: =14 b: =b+a2 if a> b then c: =a+b else c: =b-a a: =-5 b: =-3 b: =a-b2 if a> b then c: =b-a else c: =a...

40! Найти среднее арифметическое массива var o:array[1...5] of integer; i, s, n:integer; s:real; begin s:=0; n:=5; for i:=1 to 5 do begin readln(o[i]); s:=s+o[i]; sr:=s/n; end. Подправить чтобы было правильно.

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

Сколько кбайтов составляют 2^17 битов?

Написать программу для заполнения линейного массива случайными числами с некоторого отрезка [a, b]. в с++

1) Разверни числа:а) 81 б) 524 в) 341, 6г) 89, 11​

Вариант 5 . составить блок-схему

сор нужно умоляю вас люди вы где

Написать программу решения квадратных уравнений. вычисление d оформить процедурой (паскаль

Определите значение переменной c после выполнения следующего фрагмента программы a: =-5 b: =14 b: =b+a*2 if a&gt; b then c: =a+b else c: =b-a a: =-5 b: =-3 b: =a-b*2 if a&gt; b then c: =b-a else c: =a...

1) Разверни числа:а) 81 б) 524 в) 341, 6г) 89, 11

Определите значение переменной c после выполнения следующего фрагмента программы a: =-5 b: =14 b: =b+a2 if a> b then c: =a+b else c: =b-a a: =-5 b: =-3 b: =a-b2 if a> b then c: =b-a else c: =a...