Занести в одно мерный массив целые числа с клавиатуры. Затем определить в массиве и вывести на экран следующие значения: числа-элементы массива, у которых индекс (номер элемента массива) заканчивается цифрой 3.
Answers & Comments
stalkerya
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.
Answers & Comments
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.