Предмет: Информатика, автор: айвенго2

Массив В размером 7,заполняется с клавиатуры. Известно , что в массиве имеются элементы, равные 5. Определить индекс последнего из них. Паскаль​

Ответы

Автор ответа: Вованичикчка
1

var B: array [1..7] of integer;

i: integer;

begin

   for i := 1 to 7 do

   begin

       write('Введите ', i, ' элемент: ');

       readln(B[i]);

   end;

   

   for i := 7 downto 1 do

       if B[i] = 5 then

       begin

           writeln(i);

           break;

       end;

end.

Предыдущий вопрос
Следующий вопрос
Интересные вопросы
Предмет: Русский язык, автор: liyba
Помогите пожалуйста. Найди слова с орфограммой-буквой согласного в конце слова.Какие буквы в них нужно написать? Какие буквы выберешь для написания? 1) На бревне у болот круглый год Сидел почитатель болот, И при этом лягушке распевал он частушки На бревне у болот круглый год. 2) Раз попал в окружение ос Знаменитый скрипач-виртуоз, Но своею игрою он понравился рою, Чем и спасся от ос виртуоз.
2 года назад
Предмет: Английский язык, автор: Аноним

It's not bad. what about?they are all right. that's enough.i dont mind.they havent got any...theyve got...we ve got enough for... надо зделать диолог заранее спс
2 года назад
Предмет: Другие предметы, автор: Аноним

Клен

Фенологические наблюдения: Даты :

1.Начало листопада

2.Конец листопада

3.Начало набухания почек

4.Начало распускания листьев(цветов)

5.Начало распускания цветов(листьев)
2 года назад
Предмет: Математика, автор: peni2
ПОМОГИТЕ ПОЖАЛУСТА (((
8 лет назад
Предмет: История, автор: Адина1231
Вам нравится уроки История и Обществознание
8 лет назад