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. Запиши, что выводит программа на экран и в какой форме
Ответы
Ответ дал:
0
Исходная программа (без ошибок):
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.
Приложения:
![](https://st.uroker.com/files/394/3940e6fc9dd11d0a99e0176932e9d979.jpg)
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад