ПАСКАЛЬ! ПОМОГИТЕ, СРОЧНО!
5-9 класс
|
Задать случайным образом 9 элементов числового массива – дробные числа от 10 до 50. В этом массиве:
1. Найти минимальный элемент и увеличить его на 100.
2. Найти максимальный элемент и поменять его местами с первым элементом.
3. Найти минимальный и максимальный элемент в числовом массиве из 10 элементов, заданных с клавиатуры. Поменять их местами.
1,2 задание
var
a:array [1..9] of real;
i,k:integer;
j:real;
begin
randomize;
writeln('Массив:');
for i:=1 to 9 do
begin
a[i]:=(random(410)+100)/10;
write(a[i],' ');
end;
writeln;
writeln('Массив после увелечения минимального элемента на 100:');
k:=1;
for i:=2 to 9 do
if a[i]<a[k] then k:=i;
a[k]:=a[k]+100;
for i:=1 to 9 do
write(a[i],' ');
writeln;
writeln('Массив после престановки максиального элемента с первым:');
j:=a[1];
a[1]:=a[k];
a[k]:=j;
for i:=1 to 9 do
write(a[i],' ');
writeln;
end.
3 задание
var
a:array [1..10] of integer;
i,mn,mx:integer;
begin
writeln('Введите массив:');
for i:=1 to 10 do
readln(a[i]);
mn:=1; mx:=1;
writeln('Массив');
for i:=1 to 10 do
begin
if a[i]<a[mn] then mn:=i;
if a[i]>a[mx] then mx:=i;
write(a[i],' ');
end;
i:=a[mx];
a[mx]:=a[mn];
a[mn]:=i;
writeln;
writeln('Массив после престановки:');
for i:=1 to 10 do
write(a[i],' ');
writeln;
end.
Другие вопросы из категории
"Информатика-наука об информации и информационных процессах"
<area shape=rect coords="33, 60, 191, 246" href="algoritm1.htm">
<area shape=poly coords="534, 62, 699, 62, 698, 236, 626, 261, 534,235"href="algoritm1.htm">
<area shape=circle cords="366, 147, 109" href="algoritm1.htm">
Средняя скорость чтения для учащихся 9-11 классов составляет 160 слов в минуту. Подсчитайте, какое количество информации они перерабатывают за 5 часов непрерывного чтения, если средняя длина слова равна 10 буквам.
Заранее спасибо.
Информатика 9 класс.
задание.
Составьте программу, которая заполняет массив А[1..10] СЛУЧАЙНЫМИ ЦЕЛЫМИ числами в диапазоне от 1 до 10 и находит количество элементов, КОТОРЫЕ БОЛЬШЕ СВОЕГО СОСЕДА СПРАВА.
пример вывода:
Исходный массив:
10 2 4 1 3 5 7 8 2 7
Количество элементов, которые больше своего соседа справа=3
БУДУ ОЧЕНЬ БЛАГОДАРНА
Читайте также
Даны натуральное число n и вещественные числа a1, a2, ..., an. Определить среднее арифметическое вещественных чисел...
ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА
нужной ему квартиры.На какой этаж дома довезёт лифт человека.
(в паскале) плиззз помогите срочно надо