1. Даны три числа. Напишите программу которая выводит сумму максимального и минимального Остальные на фото​

1 задача

var

 a:array[1..3] of integer;

 i,min,max:integer;

begin

  for i:= 1 to 3 do

read(a[i]);

 min:=a[1];

for i:= 1 to 3 do

if a[i]<min then

  min:=a[i];

for i:= 1 to 3 do

if a[i]>max then

  max:=a[i];

writeln(min+max);

end.

2 задача

var

 i:integer;

begin

  for i:= 10 to 30 do

   if i mod 3 = 0 then

     writeln(i);

end.

Объяснение: