Регистрация
алисаиср1
26.04.2021 14:24
Информатика
Есть ответ 👍

Даны натуральное число x и целые числа a₁, a₂ aₓ. найти: а) номер максимального из чисел aₓ. если чисел с максимальным значением несколько, то должен быть найден номер последнего из них; б) номер минимального из чисел aₓ. если чисел с минимальным значением несколько, то должен быть найден номер первого из них. выполнить в программе pascal abc.

111
353
Посмотреть ответы 2

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

SergeSaenko
SergeSaenko
4,4(87 оценок)
//pascal abc.net v3.1 сборка 1172 //1 var   i,x,max,n,maxi: integer; begin max: =-32768; readln(x); i: =0;   while i< > x do   begin     i: =i+1;     readln(n);     if n> =max then       begin         max: =n;         maxi: =i;       end;   end; writeln(maxi); end. пример ввода: 3 1 2 2 пример вывода: 3 //2 var   i,x,min,n,mini: integer; begin min: =32767; readln(x); i: =0;   while i< > x do   begin     i: =i+1;     readln(n);     if n< min then       begin         min: =n;         mini: =i;       end;   end; writeln(mini); end. пример ввода: 3 1 1 2 пример вывода: 1
Косалинааа
Косалинааа
4,4(58 оценок)

А вот и мой вопрос: "Какую тему?"

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