Program zadacha;vara: array[1..5] of byte;i,max: byte;beginmax:=0;for i:=1 to 5 do begin a[i]:=random(255); write(a[i]:4);end;writeln;
for i:=1 to 5 doif a[i]>max then max:=a[i];
writeln('max=',max);
end.
const
ns=20;
var a:array[1..ns,1..ns] of integer;
m,n,i,j:byte;
min,sum:integer;
begin
randomize;
readln(m,n);
writeln('Исходная матрица:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:3);
end;
writeln;
end;
writeln('Минимальные элементы столбцов:');
sum:=0;
for j:=1 to n do
begin
min:=a[1,j];
for i:=1 to m do
if a[i,j]<min then
min:=a[i,j];
sum:=sum+min;
writeln(j,' - ',min:2);
end;
writeln('Сумма минимальных элементов: ',sum);
end.
Program s;
uses crt;
var s,h,a:real;
begin
clrscr;
writeln('введите основание и высоту через пробел');
readln(a,h);
s:=0.5*a*h;
writeln('s= ',s);
readkey;
<span>end.
при вводе 2 и 5 площадь будет равна 5</span>
Pre обозначает предварительно отформатированный текст