Program z;
var i,sum:integer;
sr:real;
a:array[1..22] of integer;
begin
for i:=1 to 22 do
begin
a[i]:=random(9)+1;
sr:=sr+a[i];
end;
sr:=sr/22;
for i:=1 to 22 do
begin
if (a[i]<sr) then
sum:=sum+1;
writeln(a[i]);
end;
writeln(sum);
end.
ответы пишу в форме таблицы
X--Y--Z--1--2--3--4
0--0--0--1--0--0--1
0--0--1--0--0--1--1
0--1--0--0--0--1--1
0--1--1--0--0--1--1
1--0--0--0--0--1--1
1--0--1--0--0--1--1
1--1--0--0--0--1--1
1--1--1--0--1--1--0
Буду считать, что точка с запятой входит в текст
Количество символов: 22
а) Не знаю
б) 1 символ = 1 байт => 22 * 1 = 22 байта = 22 * 8 = 176 бит
в) 1 символ = 2 байта => 22 * 2 = 44 байта = 44 * 8 = 342 бита
За 3, ЕСЛИ встретилось 2 пробела УДАЛИТЬ ИХ, на их место ЗАПИСАТЬ один пробел.
1) Проверка
2) Удаление
3) Запись
Если помог нажмите "спасибо"