заполнит массив состоящий из 10 элементов который задает пользователт в атомотическом режиме. Вывести на экран элементы индексов которых заканчиваються на ноль
Ответы
Ответ дал:
0
var a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i] mod 10 = 0 then write(i,' ');
end.
i:integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i] mod 10 = 0 then write(i,' ');
end.
Вас заинтересует
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад