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.