Регистрация
dima878787
15.01.2022 06:07
Информатика
Есть ответ 👍

Решите на фото задания
1) какая программа на скрине?

129
455
Посмотреть ответы 2

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

tanyakondratev2
tanyakondratev2
4,6(85 оценок)

что то похожее на FileZilla, JS, но явно не DBD

Объяснение:

Илья55555555
Илья55555555
4,6(12 оценок)
Const    n = 15; var   mas: array[1..15] of integer;   i, max1, max2,  min, c, d: integer; begin   c: =-1;   max1: =-maxint;   min: =maxint;   max2: =-maxint;   randomize;   for i: =1 to n do     mas[i]: =random(101)-50;   write('массив:   ');     for i: =1 to n do     write(mas[i], ' ');   writeln;   for i: =1 to n do   begin     if (mas[i]> 0) and  (mas[i]> max1) then       max1: =mas[i];     if (mas[i] mod 2 < > 0) and (max2< mas[i]) then     begin       c: =i;       max2: =mas[i];       end;       if (mas[i] mod 2 < > 0) and (min> mas[i]) then     begin       d: =i;       min: =mas[i];     end;     end;   writeln('максимальный положительный элемент:   ',max1);   writeln('минимальный нечетный элемент:   ',min);   writeln('максимальный нечетный элемент:   ',max2);   if c< d then       writeln('максимальный элемент стоит раньше')   else     writeln('минимальный  элемент стоит раньше'); end.

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