//PascalABC.NET 3.1 сборка 1200
begin
repeat
var n := Random(1000);
if n mod (5 * 7) = 0 then begin
write(n);
Readln;
end
until false;
end.
// находим максимальное значение
int max = arr[0];
for(int i = 1; i < 10; i++) if (arr[i] > max) max = arr[i];
// находим сколько элементов массива имеют максимальное значение
int num = 0;
for(int i = 0; i < 10; i++) if (arr[i] == max) num++;
1)
Program n1;
var a: array[1..10] of integer;
i,sum: integer;
begin
randomize;
sum:=0;
writeln('исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(20)-10;
write(a[i],' ');
if a[i]<0 then sum:=sum+a[i];
end;
writeln;
writeln('сумма: ',sum);
end.
2)
Program n2;
var a: array[1..10] of integer;
i,k: integer;
begin
randomize;
k:=0;
writeln('исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
writeln;
write('номера дел на 5: ');
for i:=1 to 10 do if a[i] mod 5=0 then write(i,' ');
end.
Если вы говорите про текстовый процессор, то там бывает только маркированный, нумерованный и многоуровневый