PYfy9pX4YibdfKzE8dnbSXaP3D5sbZenWQXx+TzottBxmrnKP4dS39zDFCHeytaxQuaxO6+SihcUhSqF6PmmxN3GxGIIAPLiSxjqjTtSHbvo7htEBwkC9DrKA9nK9xIOxPRcjpd6DAdMG0SkqPbK1+57wXgl2KsD43bDyI91iNHZGVEFuJjW2WjoZmDZOb/rVd7R9AqyWfNwqgLu5n0s8oZKpT55zvtPlOdDo6CM93h3C9G55Qj17fBXO/NNywpSzMGUqCxZha8Dm9QprL4Amawdo2pnCyu31Kn+Zny692acWR8k+IjeIoeL9HS7GGpxomAYoUcl2QOl2meKVWiovxtHmLKNooQK1Hc8yqvu293YHqgzQp3rHNgJxPJfiQnUmlYXGvOGZLk6vEUXIiesvdftDsCS/8Ae6YiLr8HWExGez9YXrworoX46BqS86+EFy3m8zwgu1fA9z61qLUP90KYw8KxlJJDWAThAVGrADHEsoHJ35+216/jwx5ruS3xgPOL83Vy5P1bL884jUiefVsuhprgR7C75lvy2ZCUYolQ=
Var
a1, a2, a3, mx, mn: real;
begin
writeln('Введите длины отрезков a1, a2, a3');
readln(a1, a2, a3);
mx := max(max(a1, a2), a3);
mn := min(min(a1, a2), a3);
writeln('Наибольший отрезок больше наименьшего в ', mx / mn:0:3, ' раз')
end.
Тестовое решение:
Введите длины отрезков a1, a2, a3
14 11 9.4
Наибольший отрезок больше наименьшего в 1.489 раз
1) поместится 4000 байт, т.к. 4000 байт=4000/1024=3.9Кб
не поместится 5600 байт, т.к. 5600 байт=5600/1024=5.4Кб
Ответ: Поместится *pdf
Const n=10;
var a:array [1..n] of integer;
k,i:integer;
begin
writeln('vvedite massiv =');
for i := 1 to n do
readln(a[i]);
k:=0;
for i := 1 to n do
if a[i]>0 then inc(k);
writeln('k=',k);
readln;
end.
// Дан массив целых чисел. Все нечетные элементы удвоить, а четные уменьшить вдвое.
var a: array [1..10] of real; // возьмем массив из 10 чисел
i,x :byte;
begin
randomize;
for i:=1 to 10 do //заполняем исходный массив случайными числами (до 1000)
begin
a[i]:=random(1000);
writeln (i,' элемент исходного массива ',a[i]);
end;
writeln ();
for i:=1 to 10 do
begin
x:=i mod 2; //определяем четный или нет элемент массива
if x=0 then //если элемент четный
begin
a[i]:=a[i]/2;
writeln (i,' элемент массива - четный ',a[i]);
end
else //если элемент нечетный
begin
a[i]:=a[i]*2;
writeln (i,' элемент массива - нечетный ',a[i]);
end;
end;
<span>end.</span>