1.В среде программирования ABCPascal выполни №78из Рт. Заполни таблицу. а) program a78...

Question

1.В среде программирования ABCPascal выполни №78из Рт. Заполни таблицу. а) program a78 var i, s: integer; sr: real; const a: array [1..6] of integer = (1,7,3,6,0,10);. begin s:=0;. for i:=1 to 6 do s:=s+a[i];. sr:=s/6;. writeln('sr=', sr). end. 2.Измени программу так, чтобы данные вводились случайным образом в интервале от 0 до 50 , а затем выводились на печать в один столбец с комментариями. 3. Протестируйте программу, исправь ошибки. 4. Запиши в тетрадь для записей исправленные варианты программы. 5. Запиши, что выводит программа на экран и в какой форме

Answer 1

Исходная программа (без ошибок):

program a78;

var i, s: integer;

sr: real;

const a: array [1..6] of integer = (1,7,3,6,0,10);

begin

s:=0;

for i:=1 to 6 do s:=s+a[i];

sr:=s/6;

writeln('sr=', sr)

end.

Изменённая программа:

program a78;

var i, s: integer;

sr: real;

a: array [1..6] of integer;

begin

s:=0;

for i:=1 to 6 do

begin

a[i]:=random(51);

writeln (i,' элемент = ',a[i]);

s:=s+a[i]

end;

sr:=s/6;

writeln('sr = ', sr:0:3)

end.

---