Регистрация
nastyshanastia1
24.08.2021 09:13
Информатика
Есть ответ 👍

РЕБЯТ РЕШИТЬ ТЕСТ ПО ИНФОРМАТИКЕ

12 вопросов


210
407
Посмотреть ответы 1

Ответы на вопрос:

zzsasz33
zzsasz33
4,8(19 оценок)
Program znanija; const n = 7; var  a: array[1..n] of integer; mini, min, i, b: integer; begin mini : = 1; write('введите массив из ', n, ' элементов: '); for i : = 1 to n do begin  read(b);   a[i] : = b;   if i = 1 then min : = b;       if b < min then    begin  min : = b;   mini : = i;   end;       end; write('массив в обратном порядке: '); for i : = n downto 1 do  write(a[i], ' ');   writeln();   write('минимальный элемент массива ', min, ', его номер ', mini); end.

Популярно: Информатика