Даны два числа A и B. Найдите наибольший делитель этих двух чисел

259

359

Посмотреть ответы 1

Ответы на вопрос:

ирина1834

Информатика

4,5(9 оценок)

Var n, i, sum: integer; a: array[1..100] of integer; average: real; begin write('сколько чисел будет в массиве? '); readln(n); sum : = 0; for i : = 1 to n do begin write('введите ', i, ' число: '); readln(a[i]); sum : = sum + a[i]; end; average : = sum/n; writeln('среднее арифметическое: ', average); end.