Ответ:
program Korobki;
var
a: array [1..10] of integer;
i: integer;
begin
{ Считываем 10 значений в массив }
for i := 1 to 10 do
readln(a[i]);
{ Ищем 5, если находим, то пишем его индекс }
if a[i] = 5 then
write(i);
end.
Объяснение:
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
program Korobki;
var
a: array [1..10] of integer;
i: integer;
begin
{ Считываем 10 значений в массив }
for i := 1 to 10 do
readln(a[i]);
{ Ищем 5, если находим, то пишем его индекс }
for i := 1 to 10 do
if a[i] = 5 then
write(i);
end.
Объяснение: