40 строк нужно умножить на 12 листов т.к. на каждом из 12 листов по 40 строк.
40*12=480
480*31=14880 байт
14880:8=1860 кбайт
Program Matr22;
Uses Crt;
type matrix=array[1..5,1..5] of integer;
var m:matrix;
n:byte;
procedure Auto;
var i,j:integer;
begin
n:=0;
randomize;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
m[i,j]:=random(50)+5;
if (m[i,j]=22) then n:=n+1;
end;
end;
end;
procedure PrintMatrix(mas:matrix;);
var j,k:integer;
begin
for k:=1 to 5 do
begin
for j:=1 to 5 do
begin
write(mas[k,j]:3);
end;
writeln;
end;
end;
begin
clrscr;
Auto;
PrintMatrix(m);
writeln;
writeln('Количество элементов равных 22:',n);
readkey;
end.
a=1
нч для b от 1 до 10 ----это значит что цикл работает 10 раз
a=a+10 это значит что каждый рас добавляют о 10
и ответ равен 101
ЛЕГКО 1 Глаза 2 Ушы 3 рецепторы языка 4 НОС 5 МОЗГ
1) комплексным чертежом
2) в проекционной связи посредством прямоугольного проецирования;
3) профильной плоскостью проекций и обозначается W;
4) профильной проекцией или видом сбоку (слева);
5) с профильной плоскостью и образуют оси оz (при пересечении фронтальной и профильной) и оy (при пересечении горизонтальной и профильной);
6) с осями - осный чертеж, без осей - безосный
7) по х-длину, z-высоту, у-ширину