Создайте массив, содержащий 15 различных символов. Отсортируйте его по убыванию. После этого определите и выведите на экран «наименьший» и «наибольший»
10-11 класс
|
символы.
var a:array[1..15] of char;
i,min,max:integer;
Begin
min=1;
max=1;
for i:= 1 to 15 do begin
a[i]:= chr(random(256));
if a[min]>a[i] then min:=i;
if a[max]<a[i] then max:=i;
end;
writeln(a[min], a[max]);
End.
Другие вопросы из категории
выполнения следующего фрагмента программы, в котором a, b и c –
переменные вещественного (действительного) типа.
Читайте также
полученную сумму.
2. Дан массив В(n). Определите произведение элементов, кратных 3. Выведите на экран исходный массив и найденное произведение.
название группы;
название альбома;
год выпуска;
стиль.
Выведите на экран все альбомы в стиле pop и rock.
2) Преобразовать одномерный массив вещественных чисел, присвоив каждому элементу квадрат его значения.
1)Дан массив Р(15).Найти сумму всех отрицательных элементов с четными индексами.Полученный результат вывести на экран.
2)Ввести с пульта оператора массив МАС1 семь целых чисел. Переписать из МАС1 в МАС2 элементы значения которых положительные,в МАС3 элементы значения которых отрицательные. На пульт оператора вывести значения МАС1,МАС2,МАС3
элементов. Заполнить его с клавиатуры. Найти:
а) удвоенную сумму положительных элементов;
б)вывести индексы тех элементов, значения которых больше значения предыдцщего элемента ( начиная со второго)