Регистрация
Eazyeazy
12.10.2022 23:50
Информатика
Есть ответ 👍

Фото сверху
інформатика​

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

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

Vitaliy11111111
Vitaliy11111111
4,4(91 оценок)
Const n=10; var a: array[1..n+1] of integer; k,i: integer; b: boolean; begin randomize; for i: =1 to n do   begin   a[i]: =random(21)-10;   write(a[i]: 4);   end; writeln; write('введите число: '); readln(k); b: =false; for i: =1 to n do   if a[i]=k then b: =true; if not b then   begin   for i: =n+1 downto n div 2 + 1 do a[i]: =a[i-1];   a[n div 2]: =k;   for i: =1 to n+1 do write(a[i]: 4);   writeln;   end   else writeln('массив не изменился'); end. пример:     6   10   -5   -3   -9   -8   -3   3   -9   7 введите число: 4     6   10   -5   -3   4   -9   -8   -3   3   -9   7

Популярно: Информатика