Например список учеников класса,можно составить таблицу по нескольким критериям:рост,вес,пол И так далее
11011111 = 223
11011001 = 217
11000011 = 195
11000000 = 192
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y>=-x)and(y>=x)and(y<=1)
then writeln('YES')
else writeln('NO')
end.
Пример:
x = 0.5
y = 0.3
NO
Var ar:array of integer;
max,i,n,j:integer;
begin;
max:=-2147483648; //нижняя граница integer
writeln('Введите размерность массива:'); //массив всегда приятнее
readln(n);
setlength(ar,n+1); //задали размерность динамического массива
for i:=1 to n do
begin;
write('Введите ',i, ' элемент массива:');
readln(ar[i]);
end;
for i:=1 to n do
for j:=1 to n do
if max<ar[i]*ar[j] then max:=ar[i]*ar[j];
writeln('Result:',max);
<span>end.</span>