Дан список учащихся (15 человек), их оценки за экзамен по математике и русскому языку. Составить програмиу которая
выводит:
1) средний оценок по математике и средний оценок по русскому языку;
2) Выводит количество учащихся, которые сдали математикуна 4и 5 и русский на 4 и 5 (отдельно по каждому
предмету)
3) Выводит на экран фамилии учащихся, которые на экзамене по математике получили 3.
Разбор задания: Рассмотрим, сколько массивов будут участвовать в этой программе:
фамилии учащихся (символьный тил элементов),
оценки по математике (целый тип),
оценки по русскому языку (целый числовой тип). Всего 3 массива. Опишем их в программе:
program exam;
var f:array[1..15] of string;
m: array[1..15] of integer;
r: array[1..15] of integer;
i, k: integer;
Begin
writeln('Введите фамилию учащегося, его оценку по математике и русскому языку');
For i:=1 to 15 do readln(f[i],m[i],r[i]);
Данная часть программы описывает все массивы и переменные, которые участвуют в программе (М средний по
математике, п- средний по русскому языку). Также вводятся элементы 3 массивов: фамилия, оценка по математике
и оценка по русскому.
const
m = 10;
var
t: array[1..m] of integer;
i, n, nm, sm: integer;
begin
//Заполняем массив сл.числами и подсчитываем
//количество элементов и среднее арифметическое
//согласно условию задачи
for i := 1 to m do
begin
t[i] := random(-20, 20);write(t[i]:4);
if (i > 1) and (i <= m) then
if t[i] > t[i - 1] then n := n + 1
else if t[i] < t[i - 1] then begin
sm := sm + t[i];nm := nm + 1;
end;
end;
writeln;
writeln('число элементов больших предыдущего = ', n);
writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);
end.
Тестовое решение:
6 13 19 8 -19 -11 -20 -15 -19 -13
число элементов, больших предыдущего = 5
среднее арифметическое элементов, меньших предыдущего = -12.5
Делим 65536 байт на 256 байт/сек. получаем 256 сек.
Мы узнали время. Теперь 512 бит переведем в байты [512/8=64] получим 64 байт. 64 байт умножаем на 256 сек. получаем 16384 байт, ответ на задачу.
Если требуется написать ответ к килобайтах, переведем 16384 байт в кбайты.
16384 делим на 1024 получаем 16 кбайт.
В ответе пишем: 16384 байт либо 16 кбайт, в зависимости от того, что от нас требуют написать.