Zhizhete
4 год назад
Задан массив A[1..17]. Составьте программу, которая выводит индексы тех элементов, значения которых равны нулю.
ОТВЕТЫ
Григор
Oct 24, 2020
var
a:array[1..17] of integer;
i:integer;
begin
for i:= 1 to 17 do
begin
read(a[i]);
if a[i] = 0 then
Write(i, ' ');
end;
end.
0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6
1 11
a:array[1..17] of integer;
i:integer;
begin
for i:= 1 to 17 do
begin
read(a[i]);
if a[i] = 0 then
Write(i, ' ');
end;
end.
0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6
1 11
436
Смежные вопросы: