составить программу которая поставит максимальный элемент массива на первое место(массив из 10 целых случайных чисел)
10-11 класс
|
var
i,max,m:integer;
a:array[1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(50);
write(a[i],' ');
if a[i]>max then
begin
max:=a[i];
m:=i;
end;
end;
writeln;
writeln('Измененный массив:');
i:=a[1];
a[1]:=a[m];
a[m]:=i;
for i:=1 to 10 do write(a[i],' ');
end.
Другие вопросы из категории
1)Для всех чисел от -5 до 60 найти и вывести их кубы.
2)Найдите сумму нечетных чисел 1 до 100.
3)Подсчитать количество всех четных чисел от -20 до 20
4)Для всех четных чисел от 10 до 78 найти и вывести значение функции y=5x^3-6x
Помогите!
Читайте также
массив.Найти сумму определённого элемента;количество элементов,стоящих на нечетных местах;произведение элементов,кратных 5.
элементов настоящей таблице х [1 .. 10] на 0.
3.составить программу, замены отрицательного элементов настоящей таблице х [1 .. 10] на их квадрат.
4.составить прогрумму, которая увеличивает на 2 все элементы настоящей таблице х [1 .. 10], которые больше 10.
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
которой сначала напечатайте элементы массива в строчку, а на следующей строчке - произведение элементов с чётными индексами". Заранее спасибо.
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы