1. Заполнить массив из 10 элементов целыми случайными числами, лежащими в диапазоне от –5 до +5.
2.Найти первый минимальный элемент массива
Ответы на вопрос:
const
a: array[1..10] of integer = (1, 50, 2, 22, 3, 35, 4, 61, 5, 42);
var
i, min, max, nmax, nmin: integer;
begin
min := 100;
max := -1;
for i := 1 to 10 do
if i mod 2 = 0 then
begin
if a[i] > max then
begin
max := a[i];
nmax := i - 1;
end;
if a[i] < min then
begin
min := a[i];
nmin := i - 1;
end;
end;
writeln('Лучший результат у спортсмена под номером ', a[nmax], ' - ', max);
writeln('Худший результат у спортсмена под номером ', a[nmin], ' - ', min);
end.
------------------------------------------------------------------------------------------
Если что то непонятно, что то из этого вы не проходили напиши в комментарии, я отвечу или изменю программу.
И если программа должна иметь другую структуру(Например результаты нужно вводить самостоятельно), я ,также, могу переписать её.
Популярно: Информатика
-
jeka363632786713.02.2022 07:15
-
nastya0201200715.11.2021 09:22
-
VikaPika56116.02.2022 07:50
-
swietajakubiak07.01.2023 12:28
-
Polina6891104.03.2023 07:07
-
hola17405.02.2022 12:42
-
kirilladmiiral16.03.2020 21:14
-
polinashevchen427.01.2023 20:54
-
bodisss23.01.2021 03:51
-
fox205519.03.2022 17:10