1)дан числовой массив из 10 чисел ( случайным образом) в интервале (50, 250) . Отсортировать массив.
10-11 класс
|
2) В компьютер вводится результат для 10 абитуриентов. Вывести на экран фамилии и результат тех, кто попадает в интервал ( 10, 30) Подсчитать среднее арифметическое.
3) Дан массив из 10 элементов. Определить 2х значные числа и которые заканчиваются на цифре 5.
1) program otsort;
var a:array[1..10] of integer;
i,j,b:integer;
begin
for i:=1 to 10 do begin a[i]:=random(201)+50; write(a[i]:4); end;
for i:=1 to 10 do
for j:=1 to 9 do if a[j+1]<a[j] then begin //отсортировка по возрастанию, поменять < на > для сортировки по убыванию
b:=a[j+1];
a[j+1]:=a[j];
a[j]:=b;
end;
writeln;
for i:=1 to 10 do write(a[i]:4);
end.
Другие вопросы из категории
•вид
•вставка
•рецензирование
•данные
Часть интерфейса приложения, где размещаются редактируемые документы:
•редактирование
•форматирование
•выделение
•изменение размера текста
Читайте также
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
Пример: Исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 максимальные a[4]=10, a[7]=8
Составить программу. Сформировать массив из 8 элементов, вывести количество отрицательных чисел.
Составить программу. Создать массив из 10 элементов случайным образом, найти сумму нечетных чисел.
Писать на языке Паскаль,одномерный массив
массив:
14 25 13 30 76 58 32 11 41 97
Результат:
30 11 41 32 13 14 25 76 97 58
говорили про какой-то метод пузырька. хелп ми Т_т
p.s. паскаль abc
ребят ,если честно - срочно...