Паскаль! дан целочисленный массив размером 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 ('среднее арифмитическое= '+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.