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

Question

Информатика

Радислав

2 декабря, 04:53

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

+5

Ответы (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.