1.В среде программирования ABCPascal сделай 78из Рт. Заполни таблицу.
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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.