//Pascal ABC.NET 3.1 сборка 1256
Const
n=10;
Var
ar:array[1..n] of integer;
i,k,min:integer;
begin
min:=integer.MaxValue;
writeln('Array:');
for i:=1 to n do
begin
readln(ar[i]);
if ar[i]<min then min:=ar[i];
end;
for i:=1 to n do
if ar[i]-5=min then inc(k);
writeln(k);
end.
1 постановка задачи
исходные данные Х,У
результат: текст1 или текст2 или текст3 или текст4 или текст5 или текст6 или текст7
2.Формализация
если (x=0) and (y=0) то вывод текст1 ('это начало координат');
если (y=0) and (x<>0 ) то вывод текст2 ('точка лежит на оси OX');
если (y<>0) and (x=0 ) то вывод текст3 ('точка лежит на оси OY');
если (y>0) and (x>0 ) то вывод текст4 ('точка в 1 четверти');
если (y>0) and (x<0 ) то вывод текст5 ('точка во 2 четверти');
если (y<0) and (x<0 ) то вывод текст6 ('точка в 3 четверти');
если (y<0) and (x>0 ) то вывод текст7 ('точка в 4 четверти')сли
var
x,y: integer;
begin
writeln ('ââåäè êîîðäèíàòû òî÷êè x,y');
read (x,y);
if (x=0) and (y=0) then writeln (''это начало координат');
if (y=0) and (x<>0 ) then writeln ('точка лежит на оси OX');
if (y<>0) and (x=0 ) then writeln ('точка лежит на оси OY');
if (y>0) and (x>0 ) then writeln ('точка в 1 четверти');
if (y>0) and (x<0 ) then writeln ('точка во 2 четверти');
if (y<0) and (x<0 ) then writeln ('точка в 3 четверти');
if (y<0) and (x>0 ) then writeln ('точка в 4 четверти')
end.
Точно, конечно, ответить сложно. Но что-то мне подсказывает, что всё же олень. Олень.
2^25=33554432 бит = 4194304 байт = 4096 кбайт = 4 мбайт