Помогите пожалуйста.
1)Cоставить программу удвоения каждого элемента массива A(n) порядковый номер которого кратен 3
2)Дан массив А(n) целых чисел,каждый третий элемент массива заменить на его порядковым номером.Вывести массив на печать.
1)Cоставить программу удвоения каждого элемента массива A(n) порядковый номер которого кратен 3
2)Дан массив А(n) целых чисел,каждый третий элемент массива заменить на его порядковым номером.Вывести массив на печать.
More Questions From This User See All
Answers & Comments
1) program array;
var A : array[1..10000] of integer;
i:integer;
begin
for i:=1 to length(A) do begin
if i mod 3 = 0 then
A[i]:=A[i]*2;
end;
end.
-----------------------------------
2) program fff;
var A : array[1..100] of integer;
i,n:integer;
begin
for i:=1 to n do begin
if i mod 3 = 0 then
A[i]:=i;
end;
end.