program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.
не? я не уверен
Ответ дал: Гость
program nn;
uses crt;
var a: array [1..20] of real;
t: real;
i,n,min: integer;
begin
{ввод последовательности, это самостоятельно}
min : = 1;
for i : = 1 to 20 do
begin
if a[i] < a[min] then
min : = i;
end;
t : = a[min];
a[min] : = a[20-n];
a[20-n] : = t;
end.
Ответ дал: Гость
во времена конфуция писали на узеньких дощечках 'из расщепленного бамбука. тонкую кисточку или палочку обмакивали в черную тушь и наносили иероглифы сверху вниз. если делали ошибку, то соскабливали написанное ножом. потом в дощечках делали отверстия и продевали бечевку. связка бамбука и была древнекитайской книгой.
Популярные вопросы