Program Matrix;
Uses Crt;
type matrix=array[1..3,1..3] of real;
var m:matrix;
procedure PrintMatrix(mas:matrix);
var j,k:integer;
begin
for k:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
m[i,j]:=25+random(21)+i;
end;
end;
end;
begin
clrscr;
Auto;
PrintMatrix(m);
readkey;
end;
var
a,b:integer;
begin
readln(a);
a:=a*9;
while a<>9 do
begin
b:=0;
while a<>0 do
begin
b:=b+a mod 10;
a:=a div 10;
end;
a:=b;
end;
end.
var a,i,n,k : integer;
begin k := 0;
write ('n = ');
readln (n);
for i := 1 to n do
begin read (a);
if a =0 then
k := k +1; end;
writeln (k,' - кол-во нулей');
<span> end.</span>
Машина Малина Шина Маша Молодец Лапа Молоток Риск<span>Стих</span>