Найти пять наименьших натуральных чисел N таких, что

[Sanya_1990]

Помогите чем сможете
Delphi
1. Найти пять наименьших натуральных чисел N таких, что N^2 = А^2 + В^2 + С^2, где А, В и С неравные друг другу натуральные числа.
2. Дано натуральное число n, целые числа а1, а2,…, аn. Подсчитать сколько раз встречается в этой последовательности максимальное по величине число. Поиск максимального и подсчет их количества произвести в одном цикле.
3. Дано натуральное число n, целые числа х, а1, а2,…, аn. Определить, каким по счету в последовательности а1, а2,…, аn идет элемент, равный х. Если такого члена в последовательности нет, то предусмотреть соответствующее сообщение.
4. Дано натуральное число n, целые числа а1, а2,…, аn. Подсчитать наибольшее число одинаковых, подряд идущих чисел.
5. Дано натуральное число n, действительные числа а1, а2,…, аn. Переставить члены последовательности так, чтобы сначала расположились все ее неотрицательные члены, потом – все отрицательные. Порядок как среди неотрицательных членов, так и среди отрицательных должен быть сохранен прежним.

[azrael]

Сделаю, пишите в аську 55655222.

[flash1989]

Пиши, выполню без проблем
icq: 588002847
email: flash_1989@ukr.net

[Oleg_Rus]

2.

Код: Выделить всё

var a: array [1..100] of integer;
    n: integer;
    i, count, max: integer;
begin
  max:= -32768;
  write('Input <n>: ');
  readln(n);
  for i:=1 to n do
  begin
    write('input <a[',i,']: ');
    readln(a[i]);
  end;
  for i:=1 to n do
    if a[i]>max then
    begin
      count:=1;
      max:= a[i];
    end else
    if a[i]=max then inc(count);
  writeln('Maximum ', max);
  writeln(count);
  readln;
end.

3.

Код: Выделить всё

var a: array [1..100] of integer;
    n: integer;
    i, x: integer;
begin
  write('Input <n>: ');
  readln(n);
  Write('Input <x>: ');
  readln(x);
  for i:=1 to n do
  begin
    write('input <a[',i,']: ');
    readln(a[i]);
  end;
  for i:=1 to n do
  if a[i]=x then
  begin
    writeln(i);
    readln;
    halt;
  end;
end.

Над остальными думать лень... Если что, постучи вечером в аську, подумаем...