Штатное расписание по организации Доля от Месячный общего фонда Кол-во фонд оплаты оплаты труда (в No - id2080520020200321 от fake23 21.03.2020 14:18

Question

Информатика: Штатное расписание по организации Доля от Месячный общего фонда Кол-во фонд оплаты оплаты труда (в No Должность единиц (Оклад, руб. труда, руб. | процентах) 1 Экономист 2 5 828.13 11 656.26p. 20,61% 2 Менеджер 4 4 629,56 18 518.24p. 32.74% 3 Юрисконсульт 2. 6 318.37 12 636.74p. 22,34% 4 Сторож 3 4 581.82 13 745,46p. 24,30% ИТОГО 56 556,70р. 100,00% 1. столбец Должность 2. столбец Оклад 3. столбец Месячный фонд оплаты 4. столбец Доля от общего фонда indos

fake23 · Accepted Answer

Program znanija;
var A:array[1..20] of integer;
i,k,min,n:integer;
begin
min:=1000000000; // прощу прощение за такое )

for i:=1 to 20 do A[i]:=random(9); // заполняем массив

for i:=1 to high(A) do // находим минимальное нечётное, запоминаем его номер
if (A[i] < min) and (A[i] mod 2 <> 0) then begin
n:=i; min:=A[i];
end;

for i:=1 to 20 do write(A[i]:3); // Выводит весь массив

writeln(); // просто перевод на новую строку для красоты

writeln('Minimum: ',min,' Ego nomer: ',n); // выдаём минимальное и его номер
end.

MOGZ ответил