сотсавьте программу которая заполнит массив a[1..10] случайными ...
сотсавьте программу которая заполнит массив a[1..10] случайными целыми числами в диапазоне от 1 до 100, затем меняет местами максимальный и минимальный элементы. Выведите на экран исходный и полученный массивы....это в паскале
Есть ответ
17.12.2022
464
Ответ
Program Program1;Vari,min,max,nmin,nmax:integer;a:array [1..10] of integer;beginrandomize;writeln('Исходный массив:');for i:=1 to 10 dobegina[i]:=random(100)+1;writeln('a[',i,']=',a[i]);end;nmin:=1;min:=a[nmin];nmax:=1;max:=a[nmax];for i:=1 to 10 dobeginif a[i]>max thenbeginnmax:=i;max:=a[i];end;if a[i]
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
