1. дан массив, заполненный случайным образом положительными числами. в массиве 10 элементов. вставить в массив на седьмое место значение, равное 0, затем удалить из получившегося массива первый элемент. вывести получившийся массив на экран. 2. в программе описан одномерный целочисленный массив а с индексами от 0 до 15. чему будут равны элементы этого массива после выполнения фрагмента программы? for i: =0 to 15 do a[i]: =i x z; for i: =1 to 15 do a[i]: =a[i-1]; оба требуется выполнить в программе pascal.

206

295

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

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

Ira019

Информатика

4,4(59 оценок)

1) uses crt; const n=11; var i: integer; a: array[1..n] of integer; begin randomize; for i: =1 to n-1 do begin a[i]: =random(99); write(a[i],' '); end; writeln(); for i: =n downto 8 do a[i]: =a[i-1]; a[7]: =0; for i: =1 to n-1 do a[i]: =a[i+1]; for i: =1 to n-1 do write(a[i],' '); end.2)uses crt; var i,z: integer; a: array[0..15] of integer; beginread(z); for i: =0 to 15 do a[i]: =i*z; for i: =1 to 15 do a[i]: =a[i-1]; for i: =0 to 15 dowrite(a[i],' '); end.