Никита Поляков
Никита Поляков

пусть дан массив a [1...n], n <= 100, целых чисел, отличных от нуля. Напишите программу, которая найдет наибольший общий



пусть дан массив a [1...n], n <= 100, целых чисел, отличных от нуля. Напишите программу, которая найдет наибольший общий делитель значений всех элементов массива A

СК
Сергей Кошелев

примени эту прогу
{Нахождение НОД }
var a,b: integer;
begin
write('Ввести 2 целых числа --> ');
readln(a,b);
while a*b > 0 do
if a >= b then a:= a mod b else b:= b mod a;
write(a+b);
readln;
end.

Похожие вопросы
Информатика. Помоги! Зараннее спасибо: * дан массив из 7 целых чисел . заменить отрицательные на нули
Дана матрица целых чисел N*N. С++
Дан массив A(n), разработать программу, которая позволяет выполнить с массивом следующие действия:
дано целое число n и массив случайных положительных и отрицательных чисел
дан массив A, состоящий из N-го количества целых чисел. подсчитать и вывести на экран количество двузначных и однозные
Дан массив А из N целых чисел. Сформировать новый массив B...
Помогитеее*. Составить программу, которая формирует множество D целых чисел от 1 до N. Число N вводится. Это в С++.
Дан целочисленный массив A{(N), заданный датчиком случайных чисел в интервале {-1000; 1000}
Помогите! Нужно написать программу в Pascal abc! дан массив из n чисел.
Составить программу которая просчитает сумму всех целых чисел от 1 до n, n-вводится с клавиатуры. (Pascal)