Дан массив натуральных чисел заданных случайным образом из диапазона от 0 до 20 и число х из этого же диапазона. Длина массива равна N. Вставить число х после первого элемента кратного пяти
Дан массив натуральных чисел заданных случайным образом из диапазона от 0 до 20 и число х из этого же диапазона. Длина массива равна N. Вставить число х после первого элемента кратного пяти
Гость
Ответ(ы) на вопрос:
ГостьПрограмму полностью написать?
Гостьconst nmax=20;
var a: array [1..nmax+1] of byte;
n, j, i: byte;
x: integer;
begin
repeat
write('Количество элементов, не более ', nmax, ', n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do a[i]:=random(21);
writeln('Исходный массив');
for i:=1 to n do write(a[i]:4);
writeln;
i := 1;
while (a[i] mod 5<>0) and (i
Не нашли ответ?
Похожие вопросы