var massive:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
massive[i] := random(100);
massive[i] := massive[i] + 15;
end;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Напишите программу, которая создает массив, заполняет его случ-ми числами и к каждому элементу массива прибавляет 15 в паскале
var massive:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
massive[i] := random(100);
massive[i] := massive[i] + 15;
end;
end.