№1 заполните массив а нулями №2 заполните массив а первыми n натуральными числами начиная с 1 №3 заполните массив а первыми n натуральными числами начиная с х ( ввести х с клавиатуры) , заранее
Const n=10; var a:array[1..n] of integer; i,x:integer; begin //Задание №1 for i:=1 to n do begin a[i]:=0;write(a[i]:3); end; writeln; //Задание №2 for i:=1 to n do begin a[i]:=i;write(a[i]:3); end; writeln; //Задание №3 readln(x); for i:=1 to n do begin a[i]:=x+i-1;write(a[i]:3); end; end.
var
a:array[1..n] of integer;
i,x:integer;
begin
//Задание №1
for i:=1 to n do begin
a[i]:=0;write(a[i]:3);
end;
writeln;
//Задание №2
for i:=1 to n do begin
a[i]:=i;write(a[i]:3);
end;
writeln;
//Задание №3
readln(x);
for i:=1 to n do begin
a[i]:=x+i-1;write(a[i]:3);
end;
end.