Решить : пользователь вводит 4 числа, найти максимальное и минимальное из этих чисел , 24 !

Program test;
var
  n,i,min,max:integer;
  a:array[1..4] of integer;
begin
  for i:=1 to 4 do begin
    readln(a[i]);
    if i=1 then begin
      min:=a[i];max:=a[i];
    end
    else
    begin
      if a[i]>max then max:=a[i]
      else if a[i]<min then min:=a[i]
    end;
  end;
  writeln('Максимальное значение ',max);
  writeln('Минимальное значение ',min);
end.

На Java:

1)

int x = new Scanner(System.in).nextInt(); //Вводим возраст

//7-10 - начальная школа

//11-15 - средняя школа

//16-17 - старшая школа

if (x >= 7 && x <= 10)

System.out.println("Начальная")

else if (x >= 11 && x <= 15)

System.out.println("Средняя")

else if (x == 16 || x == 17)

System.out.println("Старшая")

2)

int x = new Scanner(System.in).nextInt(); //Вводим число

if (x > 0)

System.out.println("1");

else if (x < 0)

System.out.println("-1");

else

System.out.println("0");

3)

int x = new Scanner(System.in).nextInt(); //Вводим оценку

switch(x) {

case 5:

System.out.println("отлично");

break;

case 4:

System.out.println("хорошо");

break;

case 3:

System.out.println("удовлетворительно");

break;

case 2:

System.out.println("неудовлетворительно");

}

Объяснение:

Всё это надо записать под отдельные функции, либо под главную исполняемую, чтобы вызвать глобально:

public static void main(String... arguments) {}

Программа:

Pascal:

var

 A: array of integer = (-10, 16, 3, -19, 0, -10, 30);

 i, pr: integer;

begin

 writeln('Массив: ', A);

 write('Отрицательные элементы: ');

 for i := 0 to 6 do begin

   if A[i] < 0 then

     write(A[i], ' ');

   if (A[i] > 0) and (A[i] mod 2 = 0) then

     pr *= A[i];

 end;

 

 writeln(#13, 'Произведение положительных элементов, кратных 2: ', pr);

end.

В начале выделяем память массиву и сразу заполняем его числами. После - регистрируем переменные, которые будем использовать в дальнейшем. Выводим массив, после - выводим просто надпись "отрицательные элементы". После этого циклом проходимся по элементам массива (в ЯП Pascal 1-й элемент массива имеет порядковый номер 0, поэтому цикл от 0 до 6). Если число отрицательное, вывести его; также в этом цикле находим произведение положительных элементов, кратных двум. В конце выводим произведение положительных элементов.