Опишите целочисленный массив из 10 элементов заполнить массив последовательностью чисел 2 5 11 23 47
вывести массив на экран.
var A : array [1..10] of integer;
i : integer;
begin
A[1]:=2;
for i:=1 to 10 do
begin
A[i]:=A[i-1]+3*i;
write (A[i], ' ')
end;
end.
Подскажите почему программа не работает?

Запишу на обычном языке, Паскаль не помню уже.

А - первое число. Б - второе число.

Если А больше Б и Б div 5=0 тогда выводится на экран (' Б наименьшее число и нацело делится на 5')

Если Б больше А и А div 5=0 тогда выводится на экран (' А наименьшее число и нацело делится на 5')

Точно не помню как выглядит это в Паскале, но что-то типо такого

If A<B and A div 5=0 then writeln ('А наименьшее число и нацело делится на 5');

If B<A and B div 5=0 then writeln ('Б наименьшее число и нацело делится на 5');

Авторлық құқық

1) автор - шығармашылық еңбегімен ғылым, әдебиет, өнер туындысын жасаған жеке тұлға;

2) авторлық құқық - автордың жеке мүліктік емес және мүліктік құқықтары;

3) авторлық құқықты және сабақтас құқықтарды қорғаудың техникалық құралы - туындыларға немесе сабақтас құқықтар объектілеріне қол жеткізуді бақылайтын, автор, сабақтас құқықтар иесі немесе өзге де айрықша құқықтар иесі туындыларға немесе сабақтас құқықтар объектілеріне қатысты рұқсат етпеген іс-әрекеттерді жүзеге асыруды болғызбайтын не шектейтін техникалық (бағдарламалық-техникалық) құрылғы немесе оның компоненттері;

Объяснение: