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. запиши, что выводит программа на экран и в какой форме
Исходная программа (без ошибок):
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.