Для случайных чисел:
var
a: array[1..5] of integer;
i: integer;
begin
randomize;
for i:=1 to 5 do
a[i] := random(100);
for i:=1 to 5 do
write(a[i], ' ');
writeln;
for i:=1 to 5 do
a[i] := a[i] * i;
for i:=1 to 5 do
write(a[i], ' ');
end.
Для ручного заполнения:
var
a: array[1..5] of integer;
i: integer;
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
write(a[i], ' ');
writeln;
for i:=1 to 5 do
a[i] := a[i] * i;
for i:=1 to 5 do
write(a[i], ' ');
end.
3.
65
4.
110
Смотрите в приложении.
Код программы можно увидеть Alt+F11
Var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do A[i]:=i*3;
S:=0;
for i:=1 to 100 do S:=S+A[i];
Writeln('сумма элементов массива= ',s);
<span>end.
или без лишнего цикла можно так
var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do
begin
A[i]:=i*3;
S:=S+A[i];
end;
Writeln('сумма элементов массива= ',s);
<span>end.</span></span>