Пусть в массив a хранятся зарплаты n сотрудников.тем сотрудникам , у которых зарплата меньше минимальной-возможной суммы, поднимем зарплату до этого минимального значения minizp.
Const n=30; {30 сотрудников} vara: array [1..n] of integer; i, minizp: integer; begin write('Мин. зарплата '); readln(minizp); for i:=1 to n do begin a[i]:=random(25001)+5000; {Зарплата в случайном значении от 5000 до 30000} if a[i]< minizp then writeln('Зарплата ', i, '-го сотрудника = ', minizp, ' р. | Старая зарплата = ', a[i]) else writeln('Зарплата ', i, '-го сотрудника = ', a[i], ' р.'); end; end.
Вот: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 const n=5; var a: array[1..n,1..n] of integer; i,j,s: integer; begin s: =0; randomize; for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(10); write(a[i,j]: 4); if (i+j) mod 3=0 then s: =s+a[i,j]; end; writeln; end; writeln('s=',s); end.
Каждый символ в кои-8 имеет объем информации 1 байт. всего текста 60*30 = 1800 байт на каждой странице. растровое изображение передает не более 8 = 2^3 цветов, значит, на кодировку цвета используется 3 бита. размер каждого рисунка 120*240*3 = 86400 бит = 10800 байт. а рисунков 2 на каждой странице. таким образом, каждая страница содержит 2*10800 + 1800 = 23400 байт. модем со скоростью передачи 28800 бит в сек передал документ за 5 сек. значит, он передал 28800*5 = 144000 бит = 18000 байт. но это меньше, чем находится на одной странице. вывод: у вас ошибка в условии.
vara: array [1..n] of integer;
i, minizp: integer;
begin
write('Мин. зарплата ');
readln(minizp);
for i:=1 to n do
begin
a[i]:=random(25001)+5000; {Зарплата в случайном значении от 5000 до 30000}
if a[i]< minizp then writeln('Зарплата ', i, '-го сотрудника = ', minizp, ' р. | Старая зарплата = ', a[i]) else
writeln('Зарплата ', i, '-го сотрудника = ', a[i], ' р.');
end;
end.