Измениение- перемена параметров
5.А - чтобы список начал нумероваться, просто поставь 1 и точку.
6.А - ыхвыбираем вариант методом исключений.
1.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
a[i]:=random(50);
writeln (a)
end.
2.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
begin
a[i]:=i*2;
writeln (a[i])
end
end.
Вот ответы! А во вторник вышла 5 за четверть! Удачи тебе в учёбе!