19192938292929292938228738392

program z1;

var a:array [1..10] of integer;

i,max,min:integer;

begin

for i:=1 to 10 do

begin

write('Введите ',i:2,' элемент: ');

readln(a[i])

end;

writeln;

max:=a[1];

min:=a[1];

for i:=2 to 10 do

begin

if a[i]>max then max:=a[i];

if a[i]<min then min:=a[i]

end;

writeln ('Максимальное число: ',max);

writeln (' Минимальное число: ',min);

end.

Объяснение:

Ввод элементов массива с пояснениями

Присваиваем переменным для максимального и минимального числа значение 1-го элемента

Сравнение остальных элементов массива с переменными для максимального и минимального, при необходимости присваивание этим переменным новых значений

Вывод максимального и минимального числа

Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -999 до -100 и от 100 до 999 будет равна 0. Для только положительных:

//c циклом for
var s,i:integer;
begin
  for i:=100 to 999 do
    if i mod 77 = 0 then s:=s+i;
  writeln('Сумма трехзначных кратных 77: ',s);
end.

Тестовое решение:
Сумма трехзначных кратных 77: 5929

// с циклом while
var s,i:integer;
begin
  i:=100;
  while i<=999 do begin
    if i mod 77 = 0 then s:=s+i;
    i:=i+1;
  end;
  writeln('Сумма трехзначных кратных 77: ',s);
end.