Условие:
Заполнить массив размерности 100, целыми числами от -33 до 55, а затем вывести его.
Решение:
Код программы:
var
A:array [1..100] of integer;
i:integer;
begin
for i:=1 to 100 do
begin
A[i]:=random(-33,55);
write...

Заполнить массив размерности 100, целыми числами от -33 до 55, а затем вывести его.
Код программы:
var
A:array [1..100] of integer;
i:integer;
begin
for i:=1 to 100 do
begin
A[i]:=random(-33,55);
write...
Не нашел нужную задачу?