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

Question

Информатика

Нонуся

19 мая, 13:21

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

+5

Ответы (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.