сервис вопросов и ответовСформировать массив из 15 произвольных чисел. Определить максимальный и минимальный элементы массива, напечатать их значения и индексы
10-11 класс|
|
Alexavdxbbxfa
13 февр. 2014 г., 14:31:15 (10 лет назад)
пацан15
13 февр. 2014 г., 15:09:05 (10 лет назад)
program z;
var a:array[1..15] of integer; max,min,i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=random(-10,10);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
write('Максимальный = ',max, ' Минимальный = ', min);
end.
Ответить
Другие вопросы из категории
Задание. Составьте блок схему алгоритма решения задачи и программу на языке Turbo Pascal c использованием условного оператора.
Даны три целых числа.Найти кол-во положительных чисел в исходном наборе.
На каждой странице документа 96 строк, по 64 символа каждая. Сколько страниц в документе, если его информ. объём при условии, что каждый символ
кодировался 2-ух байтовой кодировкой, составил 720 Кбайт. Ответ запишите в виде целого числа.
Переведите число из десятичной системы счисления в двоичную
549=
840=
Пожалуйста очень надо!!!
Читайте также
ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО. Задача:
Сформировать массив из 9 произвольных чисел.Найти сумму и произведение элементов с нечетными индексами.
Pascal ABC
Составить программу на языке Паскаль: 1)Для массива K из 12 вещественных чисел определить сколько элементов массива меньше 0. 2)В массиве М из 10 целых
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
Помогите решить задачи по паскалю:
1. модифицируйте предыдущий пример, так чтобы программа определяла максимальный и минимальный элемент массива
2. Напишите программу, которая бы определяла среднее арифметическое значение элементов массива (вещественная величина типа real)
Начало:
var a: array[1..10] of integer;
i: integer;
begin
а как дальше?
Предыдущий пример:
var a: array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do
begina[i]:=random(40)-20;
end;
for i:=1write(a[i]:4);
end.
на языке паскаль 1)дан массив натуральных чисел найдите сумму всех его элементов 2)вычислить количество положительных чисел
среди 10 элементов вещественного массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
Вы находитесь на странице вопроса "Сформировать массив из 15 произвольных чисел. Определить максимальный и минимальный элементы массива, напечатать их значения и индексы", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.