Занести в одно мерный массив целые числа с клавиатуры. Затем определить в массиве и вывести на экран следующие значения: числа-элементы массива, у которых индекс (номер элемента массива) заканчивается цифрой 3.

Question

Информатика

Аннуша

11 июля, 20:16

Занести в одно мерный массив целые числа с клавиатуры. Затем определить в массиве и вывести на экран следующие значения: числа-элементы массива, у которых индекс (номер элемента массива) заканчивается цифрой 3.

+2

Ответы (1)

Знаете ответ на вопрос?

Пальмира · Answer 1

Var i:integer; a:array[1 ... 20] of integer;

begin

for i:=1 to 20 do

readln (a[i]) ;

for i:=1 to 20 do

if (i=3) or (i mod 10=3) then writeln (a[i]) ;

readln;

end.