Системное программирование — программы, обеспечивающие управление компьютерной системой, такими как процессор, ОП (оперативная память), сетевое обеспечиние и т.д.
Program znanija;
const n = 5;
var
a:array[1..n] of integer;
premax, premaxi, maxi, max, i, b:integer;
begin
max := -1000;
write('Введите массив из ', n, ' элементов:');
for i := 1 to n do
begin
read(b);
a[i] := b;
if b > max then
begin
premax := max;
premaxi := maxi;
max := b;
maxi := i;
end;
end;
writeln('Максимальный элемент №1: ', max, ',его номер ', maxi);
writeln('Максимальный элемент №2: ', premax, ',его номер ', premaxi);
end.
цикл -- это научный круг наук так я понила тоесть тебе нужно нарисовать триугольник в круге я так понимаю больше не чем немогу помочь.
Система.
Точная, операционная.
Управляет, организует, выполняет.
Быстро вычисляет, обрабатывает данные.
Умная.
Var a:array[1..20,1..20] of integer;i,j,n:integer;beginreadln(n);for i:=1 to n dofor j:=1 to n doread(a[i,j]);
for i:=1 to n dofor j:=1 to n doif a[i,j] mod n =0 then a[i,j]:=a[i,j] div n;
for i:=1 to n do beginfor j:=1 to n dowrite(a[i,j],' ');writeln;end;end.