давно
Старший Модератор
31795
6196
28.04.2020, 17:29
общий
это ответ
Здравствуйте, Ericsson!
Смотрите код:
[code lang=pascal]const
n=9;
var
a:array[1..n]of integer;
b:integer;
begin
for b:=1 to n do
begin
write('enter a[',b,']:=');
readln(a[b])
end;
writeln;
write('value even index:');
for b:=1 to n do
if not odd(b) then write(a[b]:3);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.