сервис вопросов и ответовЗаполнить одномерный массив целых чисел из 12
5-9 класс|
|
элементов случайным образом. Вывести его на экран. В следующей строке вывести
элементы массива, имеющие порядковые номера 2,3,4,9,12. В следующей строке
вывести максимальный элемент массива.
Nastyacat131
13 авг. 2014 г., 13:44:26 (9 лет назад)
Anara2
13 авг. 2014 г., 15:45:51 (9 лет назад)
program gt;
var a:array[1..12]of integer;
n,i,max:integer;
begin
randomize;
for i:=1 to 12 do
begin
a[i]:=random(100)-50;
write(a[i],' ');
end;
writeln;
write(a[2],' ',a[3],' ',a[4],' ',a[9],' ',a[12],' ');
max:=a[1];
for i:=2 to 12 do
begin
if(a[i]>max)then max:=a[i];
end;
writeln(max);
end.
Bizzlekid
13 авг. 2014 г., 17:28:46 (9 лет назад)
uses crt;
const N=12;
var mas: array [1..N] of integer;
x,max: integer;
begin
randomize;
for x:=1 to N do
begin
mas[x]:=random(99)+1;
writeln('mas[',x,']:',mas[x]);
end;
max:=mas[1];
for x:=1 to N do
if mas[x]>max then max:=mas[x];
writeln;
writeln(mas[2],' ',mas[3],' ',mas[4],' ',mas[9],' ',mas[12]);
writeln('max=',max);
readln;
end.
Ответить
Другие вопросы из категории
Сколько времени потребуется для ввода в память компьютера текста романа А . Дюма "Три мушкетёра" с помощью сканера и программы для распознания текста
,если известно,что на сканирование одной страницы уходит 3 с, на распознование страницы -3 с?
на смену страницы в сканере - 2 с
Объем видеопамяти равен 1 Мбайт. Разрешающая способность дисплея равна 800 на 600 пикселей. Какое максимальное количество цветов можно использовать при
условии, что видеопамять делиться на две страницы?
вывести трехзначное(123)число в обратном порядке. pascal
Например 123
Вывести 321
Составьте блок схему для решения задачи .работник зарабатываетX рублей за 38 часов Своей работы . Ему платят в 1,5 раз больше за каждый час сверх 38
часов . Какую сумму он получит ,если отработает А часов ?
Читайте также
1.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
ССССРРРРРРРРРРРРРРЛОООООООООООЧЧЧЧЧЧЧЧНООООООООО!!! 1. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
1.Дан массив целых чисел, найти среднее арифметическое всех элементов массива.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
1. Массив и 4 целых чисел вводится с клавиатуры. Найти и вывести произведение элементов массива.
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.
Вы находитесь на странице вопроса "Заполнить одномерный массив целых чисел из 12", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.