Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program zadacha;
uses crt;
var a: array[1..6] of integer;
max,i: integer;
begin
for i: =1 to 6 do readln(a[i]);
max: =a[1];
for i: =1 to 6 do if max > a[i] then max: =a[i];
writeln(max);
readln;
end.
вроде правильно..
алфавит из 33 букв это:
аа, бб, вв, гг, дд, ее, ёё, жж, зз, ии, , кк, лл, мм, нн, оо, пп, рр, сс, тт, уу, фф, хх, цц, чч, шш, щщ, ъъ, , , ээ, юю, яя
Популярные вопросы