Регистрация
Nastyaninisvn
27.04.2021 06:15
Информатика
Есть ответ 👍

Что такое формула. Информатика

162
233
Посмотреть ответы 2

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

Яра3838367373
Яра3838367373
4,8(14 оценок)

точное определение какого-нибудь понятия или закона

MI743
MI743
4,6(89 оценок)
Var   a: array[1..10] of integer;   i, max, imax, min, imin: integer; begin   randomize;   max : = 0; min : = 101;   write('исходный массив:               ');   for i : = 1 to 10 do   begin       a[i] : = random(100) + 1;       write(a[i], ' ');   end;   writeln();   for i: = 1 to 10 do begin     if a[i] > max then       begin           max : = a[i];           imax : = i;       end;       if a[i] < min then       begin           min : = a[i];           imin : = i;       end;   end;   swap(a[imax], a[imin]);     write('преобразованный массив: ');     for i: = 1 to 10 do         write(a[i], ' ');     writeln;     write('я поменял местами ', imax, ' и ', imin, ' элементы'); end.

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