Создать массив из 10 случайных чисел на промежутке от 0 до 100, в первую позицию вставить число 100, предпоследний элемент удалить, вывести на экран исходный и конечный массивы.

Question

Информатика

Натаня

5 декабря, 02:03

Создать массив из 10 случайных чисел на промежутке от 0 до 100, в первую позицию вставить число 100, предпоследний элемент удалить, вывести на экран исходный и конечный массивы.

+3

Ответы (1)

Знаете ответ?

Андронка · Answer 1

Uses crt;

const N=10;

var a:array [1 ... N] of integer;

x:integer;

begin

randomize;

for x:=1 to 10 do

begin

a[x]:=random (101) ;

writeln ('a[', x,']:', a[x]) ;

end;

a[1]:=100;

a[9]:=a[10];

writeln;

for x:=1 to 9 do

writeln ('a[', x,']:', a[x]) ;

end.