Alisa1639
?>

Ip-адрес 213. 36. 109. 185 компьютера относится к сети классаадрес компьютера в сети— это адрес компьютера пользователя.​

Информатика

Ответы

iriska-669
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
Arsen0708
Const n=4; m=3; var a: array[1..n,1..m] of integer; i,j,k: integer; begin k: =17; for j: =1 to m do   begin   if j mod 2 < > 0   then for i: =1 to n do begin k: =k-1; a[i,j]: =k; end   else for i: =n downto 1 do begin k: =k-1; a[i,j]: =k; end;   end; for i: =1 to n do   begin   for j: =1 to m do write(a[i,j]: 4);   writeln;   end; end. результат:   16   9   8   15   10   7   14   11   6   13   12   5

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Ip-адрес 213. 36. 109. 185 компьютера относится к сети классаадрес компьютера в сети— это адрес компьютера пользователя.​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

smook0695
Карева Даниил1537
RozaAsadullina
sanseth5
pozhidaevgv
benonika
bieku68
shef3009
Fedorovna
Белов_Лукина1339
ekater01806
iptsr4968
igorevich-alekseevna
galichka12
dilbaryan76