Напишите пожалуйста в Паскаль.
10-11 класс
|
Массив из 15 элементов заполнить случайными четными числами в интервале от -25 до 70. Вывести полученный массив на экран в строчку.Найти сумму наибольшего и наименьшего элементов массива. (Использовать пузырьковую сортировку).
var a,b,c:integer; m2:array [1..15] of integer;
begin
for a:=1 to 15 do
begin
m2[a]:= random (95)-25;
write (m2[a], ' ');
end;
for a:=1 to 15 do
for c:=1 to 14 do
if m2[c]<m2[c+1] then
begin
b:=m2[c];
m2[c]:=m2[c+1];
m2[c+1]:=b;
end;
writeln (m2[1], ' ',m2[15]);end.
Другие вопросы из категории
страниц этого текста?
спрятали.Кто из гномов может определить цвет надетого на него капюшона?
А) карта местности;
Б) дружеский шарж;
В) программа, имитирующая движение стрелок циферблата на экране дисплея;
Г) план сочинения;
Д) график изменения температуры воздуха в течение дня.
13. Какие из утверждений являются верными? Выбрать два правильных ответа.
А) математическая формула является информационной моделью;
Б) график движения поезда - табличная статическая модель;
В) план дома - графическая детерминированная модель, описывающая структуру объекта;
Г) турнирная таблица чемпионата по футболу - эталонная динамическая модель.
Читайте также
углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.
напишите пожалуйста в паскале
Напишите программу на Паскаль которая даст ответ попадет точка в заштрихованную область или нет
E,иначе из числа взять корень степени, равной второй цифре числа
если есть умеющте напишите,пожалуйста,программу в Паскале