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

sofika121 sofika121    1   28.05.2019 16:30    4

Ответы
gasha1234567890 gasha1234567890  26.06.2020 09:54
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.     
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика