1.
var Dat: array [1 .. 30] of integer;
2.
randomize;
for i := 1 to 30 do begin Dat[i] := random(64)+7;
3.
m = 8
4.
c = 3
5.
s = 99 ?
6.
var
A: array [1..10] of integer;
i, sum, count: integer;
begin
randomize;
sum := 0; count := 0;
for i := 1 to 10 do
begin
A[i] := random(1001);
write(A[i]:6);
if ((A[i] > 99) and (A[i] < 1000)) then
begin
sum := sum + A[i];
count := count + 1;
end;
end;
writeln;
if ((sum <> 0) and (count <> 0)) then
begin
writeln('Сумма трехзначных элементов = ', sum);
writeln('Количество трехзначных элементов = ', count);
end
else
writeln('Не найдено');
end.