Паскаль! Дан целочисленный массив размером n (n - const). Заполнить массив случайными числами от a до b (a, b вводятся с клавиатуры). Найти среднее арифметическое значение элементов массива. Вот что у меня получилось: Program q...
Паскаль! Дан целочисленный массив размером n (n - const). Заполнить массив случайными числами от a до b (a, b вводятся с клавиатуры). Найти среднее арифметическое значение элементов массива. Вот что у меня получилось: Program qqq; const a=5; b=5; var n:array [a..b] of integer; i:integer; begin randomize; Write('Изначальный массив:'); Writeln; for i:=a to b do n:=random (100)-50; Write (a:5); Writeln ('Среднее арифмитическое= ',((a+b)/2)); end. Помогите! От этого зависит моя четверная и годовая оценка! P.S. Пишите, пожалуйста, наиболее простыми понятиями (без function search, procedure, uses и т.д.)
Гость
Ответ(ы) на вопрос:
ГостьProgram qqq; const n=5; var m:array [1..n] of integer; i:byte; a,b,s:integer; begin s:=0; randomize; write('введите a = ');readln(a); write('введите b = ');readln(b); for i:=1 to n do begin m[i]:=random (a,b); s:=s+m[i]; end; Writeln ('Среднее арифмитическое= ',(s/n):0:4); end.
Не нашли ответ?
Похожие вопросы