Program Nuli;
uses Crt;
const M=8;
type Mat = array [1..M,1..M] of integer;
var i,j: integer;
A: Mat;
begin
ClrScr;
WriteLn ('Old Massiv:');
for i:=1 to M do
begin
for j:=1 to M do
begin
A[i,j]:=10+random(90);
Write(A[i,j]:4);
end;
WriteLn;
end;
WriteLn;
WriteLn ('New Massiv:');
for i:=1 to M do
for j:=1 to M do
if j<=(M-i) then A[i,j]:=0;
for i:=1 to M do
begin
for j:=1 to M do
begin
Write(A[i,j]:4);
end;
WriteLn;
end;
WriteLn;
ReadLn;
end.
3 DIM i As Int, j As Int, P As Int, K As Int
7 P = 0 : K = i
9 If NAZ$=RM$(j) Then P = P + KOL Else RM$(j) = NAZ$ : P = KOL
11 KM(i) = P
Вроде бы так
2)var a, b:integer;
begin
writeln('Введите 2 числа');
readln(a, b);
if a<b then writeln('min=', a)
else writeln('min=', b);
readln;
end.
8.
var x,y,z,k:integer;
begin
k:=0;
read (x,y,z);
if (x>=1) and (y>=1) and (z>=1) then
begin
if (x<50) then k:=k+1;
if (y<50) then k:=k+1;
if (z<50) then k:=k+1;
writeln (k);
end else
writeln ('Вы ввели не натуральные числа');
end.
Раздел описания переменных начинается со слова Var (variables - переменные), за которым идет список имен переменных через запятую. Тип указывается после двоеточия. В стандарте языка Паскаль существуют два числовых типа величин: вещественный и целый. Слово integer обозначает целый тип (является идентификатором целого типа). Вещественный тип обозначается словом real.