Паскаль! дан целочисленный массив размером n (n - - вопрос №159327 от 123890Cookie123890 03.05.2023 18:40

Question

Информатика: Паскаль! дан целочисленный массив размером n (n - const). заполнить массив случайными числами от a до b (a, b вводятся с клавиатуры). найти среднее арифметическое значение элементов массива. вот что у меня получилось: programqqq; 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.

123890Cookie123890 · Answer

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.