program matrica;
const k=10;
type vector=array[1..k]o byte; masiv=aray[1..k] o vector;
var b:masiv;
procedure vved(n:byte; var a masiv);
var i,j:byte;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=0;
for j:=round(n/2) to n do
for i:=n-j+1 to j do
a[i,j]:=random(255);
end;
proceure vuvid(n:byte;:masiv);
var i,j:byte;
begin
for i:=1 to do
begin
for j:=1 to n do
write(a[i,j]:5);
riteln;
end;
end;
procedure rahnok(n:byte; a:masiv);
var i,j:byte; s,l:byte;
begin
l:=0;
for j:=1 to round(n/2) do
for i:=j to (n-j+1) do
if (a[i,j] mod 2=0) then l:=l+1;
writeln('kilkist=' l);
{
программа, вычисляющая площадь прямоугольника.
}
var
a,b: real;
begin
write('Стороны прямоугольника ');
read(a,b);
writeln(' Площадь фигуры = ',a*b:10:3);
end.
Тестовое решение:
Стороны прямоугольника 5.3 6.7
Площадь фигуры = 35.510
{
С клавиатуры вводятся 3 целых числа.
Определить количество положительных чисел
в этом наборе.
}
var
a,i,n: integer;
begin
for i:=1 to 3 do begin
write(i,'число = ');readln(a);
if a>0 then n:=n+1;
end;
writeln(' Положительных :',n);
end.