сервис вопросов и ответовПрограмму надо написать на языке pascal.Дан массив A[20] заполнить его случайными числами от -100 до 100. Поменять местами max и min значения.
5-9 класс|
|
Gulkhanym1
23 мая 2015 г., 16:28:16 (8 лет назад)
Madeternity
23 мая 2015 г., 18:52:18 (8 лет назад)
program mass;
var A: array [1..30] of integer;
i, max1, max2: integer;
begin
randomize;
for i := 1 to 30 do
A[ i ]:= random(20);
max1 := A[1];
max2 := A[2];
for i:= 3 to 30 do
if A[ i ]> max2 then
if A[ i ] > max1 then
begin
max2 := max1;
max1 := A[ i ];
end
else
max2 := A[ i ];
write("Второй максимум равен ", max2);
Ответить
Другие вопросы из категории
Переведите десятичный код в Двоичный
31
3
5
9
17
32
64
128
Кому не лень :)
Заранее спасибо :3
46 байт=.....сколько Мб?
700000 бит=.....сколько КБ?
Письмо состояло из 30 строк. В каждой строке вместе с пробелами по 48 символов. Письмо содержало 900 байт информации. Какова мощность алфавита ( кол- во символов), которым было написано письмо?
В корзине 64 шара. Сколько информации несет сообщение о том, что достали черный шар?
Алфавит состоит из 64 букв, какое кол-во информации несет в себе одна буква такого алфавита?
Читайте также
1.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
ССССРРРРРРРРРРРРРРЛОООООООООООЧЧЧЧЧЧЧЧНООООООООО!!! 1. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
Задание 4.Составте программу ,выводящую на экран числа от 1 до 10 , по одному числу в строке.
Задание 5.Дополните программу из задания 4 так , чтобы на экран выводились числа от 1 до 10,а также квадраты и кубы этих чисел в следующем виде:
1 1 1
2 4 8
3 9 27
... ... ...
10 100 1000
ПОМОГИТЕ ПОЖАЛУЙСТА,ЗАДАНИЕ 4 ПИСАТЬ НЕ НУЖНО !ПОСТАВЛЮ ЛУЧЩИЙ ОТВЕТ И "СПАСИБО"
Вы находитесь на странице вопроса "Программу надо написать на языке pascal.Дан массив A[20] заполнить его случайными числами от -100 до 100. Поменять местами max и min значения.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.