Программа может выглядеть так:
uses crt;
const m=1000;
type Mas=array [1..m] of integer;
Var A: Mas;
i, Max, n: integer;
Begin
ClrScr;
Write('n = ');
ReadLn(n);
for i:=1 to n do
begin
Write('A[',i, ']=');
ReadLn(A[i]);
end;
Max:=A[1];
for i:=2 to n do
if A[i]>Max then Max:=A[i];
Writeln;
WriteLn ('Max = ', Max);
ReadLn;
end.
Var ma:array[1..10,1..6] of integer;
i,j,k:integer;
begin;
randomize;
writeln('Matrix:');
for i:=1 to 10 do
begin;
writeln;
for j:=1 to 6 do
begin;
ma[i,j]:=random(2);
write(ma[i,j]:4);
end;
end;
for j:=1 to 6 do
begin;
i:=4;
if ma[i,j]=0 then inc(k);
end;
writeln;
write('Result:',k);
<span>end.</span>
1.Основание
2.Естественная
3.Разновидностей
4.Искусственная
а) Серёже надо приходить в 8 часов.
б) нарицательные числа
в) 0 не делиться на 5