С! на языке free pascal ide или abc pascalплощадь. по данным натуральным числам a,b,m,k найти (с округлением с избытком до целого числа) площадь пересечения полуплоскоси (a*x+b*y< =a*b) и прямоугольника (0 < = x < =m, 0< =y< =k).пример: a=5, b=5,m=5,k=3 → 11.ввод: на единственный
строке - натуральные числа a,b,m,k (меньшие 100), разделенные единичными пробелами.вывод: одно натуральное число.
var A:Array[1..10] of integer;
min,max,i,summa:integer;
Begin
For i:=1 to n do
begin Write('Введите элемент' ,i,': '); Read(a[i]);
end;
min:=a[1];
for i:=1 to n do
Begin
if a[i]<min then
begin
min:=a[i];
end;
end;
Writeln('min:',min);
max:=a[1];
for i:=1 to n do
Begin
If a[i]>max then
begin max:=a[i];
end;
end;
Writeln('max: ',max);
summa := 0 ;
for i:=1 to n do
begin
if (a[i] mod 2 = 0) then summa := summa + a[i]
end;
writeln('Сумма четных элементов равна : ', summa);
readln;
end.