Клавиша Caps Lock включает.
Program pr;
Var a:array[1..20] of integer;
i,sum:integer;
sr:real;
Begin
for i:=1 to 20 do a[i]:=random(100);
for i:=1 to 20 do Write(a[i],';');
sr:=0;
for i:=1 to 10 do sr:=sr+a[i];
sr:=sr/10;
sum:=0;
for i:=11 to 20 do sum:=sum+a[i];
Writeln;
Writeln('srednee=',sr);
Writeln('summa=',sum);
end.
Вот наполнение массива рандомом. Если нужно наполнение с клавиатуры, то вместо a[i,j]:=random(100)-50; необходимо поставить read(a[i,j]);
const n=3; m=4;
var a:array[1..n,1..m] of integer;
var i, j, count:integer;
begin
count:=0;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(100)-50;
write(a[i,j]:3, ' ');
end;
writeln;
end;
for i:=1 to n do
for j:=1 to m do begin
if (a[i,j]<0) and (a[i,j] mod 2 <>0) then count:=count+1;
end;
writeln('Количество отрицательных нечетных элементов: ', count);
<span>end.
</span>
Это код консольного приложения
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
function storona(x1,y1,x2,y2: real): real;
var s: real;
begin
s:=sqrt(sqr(x1-x2)+sqr(y1-y2));
storona:=s;
end;
var
x1,y1,x2,y2,x3,y3: real;
l1,l2,l3: real;
begin
//Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
//Если после переключения русские буквы показываются неверно,
//следует открыть системное меню консольного окна - щелчком мыши в левом
//верхнем углу окна консоли и выбрать:
//Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
write('Введите координаты точки А: ');
readln(x1,y1);
write('Введите координаты точки B: ');
readln(x2,y2);
write('Введите координаты точки C: ');
readln(x3,y3);
l1:=storona(x1,y1,x2,y2);
l2:=storona(x2,y2,x3,y3);
l3:=storona(x1,y1,x3,y3);
if (l1>l2)and(l1>l3) then
begin
writeln('Периметр прямоугольника = ',(l2+l3)*2:6:2);
writeln('Площадь прямоугольника = ',l2*l3:6:2)
end;
if (l2>l1)and(l2>l3) then
begin
writeln('Периметр прямоугольника = ',(l1+l3)*2:6:2);
writeln('Площадь прямоугольника = ',l1*l3:6:2)
end;
if (l3>l1)and(l3>l2) then
begin
writeln('Периметр прямоугольника = ',(l1+l2)*2:6:2);
writeln('Площадь прямоугольника = ',l1*l2:6:2)
end;
readln;
end.