О алее дорама орнатылмаса,
му каl алеметтер жиыны болады да, ешнәрсе істей алмайды.
жүйелік программалық жабдықтама;
храммасыз ке келген ақпараттық технология құрылғы-
компьютердің программалық жабдықтамасы үш топқа
інеді 49 сире.
командалы программалық жабдықтама (қосымшалар);
s) porраммалау жүйелері.
Жүйелік программалық жабдықтама
жүйелік программалар компьютердің аппараттық жаб-
дыктар жұмысын басқарып, жұмыс істеп отырған адамды​

Var a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do
read(a[i]);
for i:=15 downto 1 do
write(a[i],' ');
end.

var a:array[1..4,1..4] of integer;
i,j,s:integer;
begin
for i:=1 to 4 do
  for j:=1 to 4 do begin
  read(a[i,j]);
  if i=j then s+=a[i,j];
  end;
for i:=1 to 4 do begin
  for j:=1 to 4 do
  write(a[i,j]:3);
writeln;
end;
writeln(s);
end.

var a:array[1..20] of integer;
i,max:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
if (a[i]>=100) and (a[i]<1000) and (a[i] mod 9 <> 0) and (a[i]>max) then max:=a[i];
end;
if (max<>0) then writeln(max)
else writeln('Не найдено');
end.

1-задача
var    A:array[1..5] of integer;
 s,P,K,i,c :integer;
begin
   for I:=1 to 5 do begin
      write('ведите число ');
      readln(A[i]);
   end;
   S:=0; c:=0;
   P:=1; K:=0;
   for I:=1 to 5 do begin
      if  a[i]>0 then begin S:=S+A[i]; c:=c+1; end;
      if (a[i] mod 12)<>0 then P:=P*A[i];
      if (a[i]mod 2)=0 then K:=K+1;
   end;
   writeln('средняя сумма положительных чисел= ',S/c) ;
   writeln('произведение чисел не кратных 12= ',P) ;
   writeln('количество чётных чисел= ',k) ;
end.
можно сделать и с одним циклом. если надо - отпишись.

задача 2
расчёт с учётом того что у сотрудников разная ЗП
тоже можно сделать с одним  циклом.
var    A:array[1..5] of integer;
   i,zp:integer;
begin
   for I:=1 to 5 do begin
    write('ведите зарплату сотрудника ',i,': ');
    readln(A[i]);
   end;
  ZP:=0;
  for I:=1 to 5 do ZP:=ZP+A[i];
  write('общая сумма=',ZP);
   end.
задача 3
var    A:array[1..20] of integer;
   i,P,S,summ:integer;
begin
   for I:=1 to 20 do begin
    write('ведите число ');
    readln(A[i]);
   end;
  P:=1; S:=0;Summ:=0;
  for I:=1 to 20 do begin
    if A[i]>8 then  begin P:=P*a[i];S:=S+1; end;
    if (A[i]mod 15)<>0 then summ:=summ+A[i];
  end;
  writeln('среднее произведение чисел больше 8= ',P/S);
  write('семма чисел не кратных 15= ',summ);
   end.

и это тоже можно с одним циклом