Дано n чисел. найти самое большое число, на которое делятся все n чисел. вот разбор: вводим число n. вводим циклом for массив а из n чисел. создадим функцию которая вычисляет нод из 2 чисел. объявим переменную целочисленного типа l=a[1] т.е. первый элемент массива. потом циклом for пробегаем с 1 до n с счетчиком i и каждый раз будем вычислять l=нод(l, a[i] потом выводим число l. с++,

#include <iostream>
using namespace std;

int NOD(int a, int b) {
    while(a!=b)
       if (a>b) a-=b; else b-=a;
   return a;
}

int main() {
    int n,k,a;
    cin >> n >> k;
    for(int i=1;i<n;i++) {
        cin>>a;
        k=NOD(k,a);
    }
    cout<<k;
    return 0;
}

DIM A(6)
RANDOMIZE TIMER
FOR I = 1 TO 6
    A(I) = INT(RND * 20) - 10
    IF A(I) > 0 THEN S = S + 1
    PRINT A(I); " ";
NEXT I
PRINT
PRINT "S="; S

Новый паскаль АВС
var
   a:array[1..6]of integer;
   i,s:integer;
begin
  for i:=1 to 6 do
    begin
    a[i]:=random(-10,10);
    if a[i]>0 then s:=s+1;
    write(a[i],' ')
    end;
writeln;
writeln('Количество положительных: ',s)
end.

Старый паскаль АВС
var
   a:array[1..6]of integer;
   i,s:integer;
begin
  for i:=1 to 6 do
    begin
    a[i]:=random(20)-10;
    if a[i]>0 then s:=s+1;
    write(a[i],' ')
    end;
writeln;
writeln('Количество положительных: ',s)
end.

Var x,y,z:integer; {описание переменных и их типа}
begin
writeln ('введи два числа'); {Вывод на экран сообщения-подсказки}
readln (x,y); {считывание переменных}
if x<0 then                      {проверка условия.}
  if y>x then z:=y             {если условие истинно, то мы ищем большее из х и у. если                                        у больше, то присваиваем z значение у}
           else z:=x             {если же больше х, то присваиваем его значение}
        else                        {если условие ложно}
           if y>x then z:=x     {то мы ищем меньшее из х и у. если                                                                           у больше, то присваиваем z значение х}
                    else z:=y;     {если же больше х, то присваиваем значение у}
writeln (z);                        {вывод результата на экран}
end.                                 {конец программы}