Заполнить массив из 15 элементов так, чтобы значение каждого элемента было в два раза больше его индекса. Заполнить массив из 10 элементов с клавиатуры. Вывести в первую строчку элементы с нечетными индексами. Во вторую строчку вывести четные элементы массива.
More Questions From This User See All
Answers & Comments
1.
var a:array [1..15] of integer;
i:integer;
begin
for i:=1 to 15 do a[i]:=i*2;
write (a)
end.
2.
var a:array [1..10] of integer;
i:integer;
begin
writeln ('Введите 10 элементов массива через пробел.Потом нажмите Enter.');
for i:=1 to 10 do read(a[i]);
write ('Элементы с нечётными индексами: ');
for i:=1 to 10 do if i mod 2 <> 0 then write (a[i],' ');
writeln;
write ('Элементы с чётными индексами: ');
for i:=1 to 10 do if i mod 2 = 0 then write (a[i],' ')
end.