Uses crt; var i,j: integer; f: array[1..8] of string; p: array[1..5] of string; otm: array[1..8,1..5] of integer; sbu: array[1..8] of real; sbp: array[1..5] of real; begin // ввод фамилий с клавиатуры writeln('введите 8 фамилий: '); for i: =1 to 8 do begin write(i,'-я фамилия ='); readln(f[i]); end; // закончен ввод фамилий // ввод предметов с клавиатуры writeln('введите 5 предметов: '); for i: =1 to 5 do begin write(i,'-й предмет ='); readln(p[i]); end; // закончен ввод предметов // выставление случайных оценок от 2 до 5 randomize; for i: =1 to 8 do for j: =1 to 5 do otm[i,j]: =random(4)+2; // закончено выставление оценок по пяти предметам для восьми уч-ся // вывод на экран табеля успеваемости write('фамилия': 10); for i: =1 to 5 do write (p[i]: 10); writeln; for i: =1 to 8 do begin write(f[i]: 10); for j: =1 to 5 do write(otm[i,j]: 10); writeln; end; end. {авторы программы} // на тройку: в итоговой таблице выводить sbu и sbp // на четверку: сколько человек без двоек и троек? сделайте на тройку и на четвёрку
program max_elementarray ;
var i, max : integer ;
a : array [1..10] of integer;
begin
for i : = 1 to 10 do
begin
readln(a[i]);
end;
max : = a[1];
for i : = 2 to 10 do
if a[i]> max then max : = a[i];
writeln('max element of array = ',max) ;
readln ;
end.
i'm going to read a lot of books this year. я собираюсь прочесть много книг в этом году.
we hope you will solve all your problems soon. мы надеемся, что вскоре ты решишь все свои проблемы.
when everyone took their places my grandmother said "well, now listen to stories". когда все заняли свои места, моя бабушка сказала: "ну, теперь послушайте ".
i will try to answer all your questions. я постараюсь ответить на все твои вопросы.
we're going to discuss this buisness plan with our partners. мы собираемся обсудить этот бизнес-план с нашими партнёрами.