сотсавьте программу которая заполнит массив a[1..10] случайными целыми числами в диапазоне от 1 до 100, затем меняет местами максимальный и минимальный
10-11 класс
|
элементы. Выведите на экран исходный и полученный массивы....это в паскале
Program Program1;
Var
i,min,max,nmin,nmax:integer;
a:array [1..10] of integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to 10 do
begin
a[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 do
begin
if a[i]>max then
begin
nmax:=i;
max:=a[i];
end;
if a[i]<min then
begin
nmin:=i;
min:=a[i];
end;
end;
a[nmin]:=max;
a[nmax]:=min;
writeln('Минимальный элемент a[',nmin,']=',min,' Максимальный элемент a[',nmax,']=',max);
writeln('Полученный массив:');
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
end.
Другие вопросы из категории
программу.....плиз....помогите
слово. Определить, одинаковы ли в нём второй и четвёртый символы.
A1 = 1, A2 = 2, AN = (AN–2+ AN–1)/2, N = 3, 4, ... Найти первый из номеров K, для которых выполняется условие |AK AK–1| < D, и вывести этот номер, а также числа AK–1 и AK.
Если не трудно, то пожалуйста с комментариями/обьяснениями!
Читайте также
которых больше 5 и меньше 15
и количество элементов с нечетными значениями.
нечетными значениями
Задача 1. Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10, затем меняет местами первый и последний элементы.
на противоположный.
выведите на экран исходный и полученный массивы
очень прошу