сервис вопросов и ответовсоставить программу на языке паскаль для нахождения максимального элемента в массиве из 7 элементов(целых двухзначный чисел) заданного случайным
1-4 класс|
|
образом
Andrew789
31 мая 2013 г., 23:53:20 (10 лет назад)
Natashastenkina
01 июня 2013 г., 0:30:30 (10 лет назад)
uses crt;
var a:array [1..100] of integer;
max,i,n:integer;
begin
randomize;
for i:=1 to 7 do
begin
a[i]:=random(90)+10;
write(a[i],' ');
end;
writeln;
max:=a[1];
for i:=1 to n do
if a[i]>max then max:=a[i];
write('max=',max);
end.
15126
01 июня 2013 г., 2:49:07 (10 лет назад)
Program nechaeva97;
uses crt;
const n=7;
var
i,t,max:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
max:=random(90)+10;
write (max:5);
for i:=2 to n do
begin
t:=random(90)+10;
write (t:5);
if max<t then max:=t;
end;
writeln();
writeln('Максимальный элемент массива равен= ',max);
end.
Ответить
Другие вопросы из категории
ПОМОГИТЕ .
В фигуры на рисунки вписаны первые буквы некоторых названий растений.Впиши в таблицупропущенные названия множеств.впиши в фигуры первые буквы ещё трёх названий растений.
таблица :прятоугольник.квадрат.треугольник.круг-полевых цветов.пересечения кваррата с треугольником.
Фигуры пересечения квадрат с треугольником квадрат-е. треугольникк.круг в треугольники -р.
Растения ромашка полевая.колокольчик лесной.ель.пшеницаюастраюлотос.
какими с войствами должна обладать игрушка для детей-1.ПОЗНАВАТЕЛЬНАЯ 2. БЕЗОПАСНАЯ 3. ВЗРЫВООПАСНАЯ 4. ЛЕГКО ВОПЛАМЕНЯЮЩАЯСЯ 5.РАЗВИВАЮЩАЯ,ИНТЕРЕСНА 6.
ЛЕГКО РАЗБИВАЮЩАЯСЯ 7. УДОБНАЯ ДЛЯ ИГРЫ....?
1)Найдите и зачеркните лишнее слово группе: (Клавиатура,мышь,сканер,акустические
колонки.);(принтер,монитор,сканер,наушники);(графопостроитель,джойстик,принтер,монитор);(сканер,клавиатура,монитор,микрофон)
2)Впишите в рамки название всех известных вам устройств которые могут быть подключены к компьютеру.Обратите внимание на направление стрелок.Подумайте,что они обозначают.
Читання ......Як змінилося життя героя з
казки "Для чого людині серце" після того, як лікар уставив серце доброї людини
Читайте также
спставьте программу на языке Pascal: Для ремонта кабинета шириной а метров, длиной b метров, высотой h метров необходимо купить в магазине
обоев. Площадь окон и дверей не учитывать. Известна стоимость одного рулона (86 рублей) обоев длиной 12 м и шириной 0,6 м. Составьте программу определяющую, какая сумма необходима для покупки обоев.
2)Дан фрагмент программы на языке паскаль, на вход которого поданы значения N=10 и M=2. Чему будет равно на выходе из фрагмента значение SUM?
SUM:=0; K :=M-1;
while K<N do
begin
for I(ай) := K-M+2 to K do SUM:=SUM+I;
K:=K+M;
end;
for I:=K-M+2 to N-1 do SUM:=SUM+I;
3)Программист Авсилий Кардов недавно получил банковскую карточку. Чтобы не забыть пароль к карточке, Василий решил построить его по алгоритму, а именно: пароль равен количеству чисел от 1 до 10000, не делящихся на 13 и 17. Чему равен пароль Васи?
4) Какой набор символов будет выведен в результате работы следующей программы?
function f(x:string; a:byte) :string;
begin
if a<=3 then
f:=copy(x, l, a)
else
f:=f(copy (x, 2, a), a-2;
end;
begin
writeln(f('abcdefghijklm',7));
end.
Юра сказал маме: "Хочу яблоко". Она принесла ему очищенное яблоко. На другой день Юре подарили робота. Он опять сказал: "хочу яблоко". Но робот не
сдвинулся с места. Тогда Юра приказал: "Пойди на кухню, очисть яблоко и принеси". Робот пошел на кухню, очистил яблоко, вернулся и подал своему хозяину... очистки от яблока!
а. В чем разница между действиями мамы и робота?
b. Составь для робота алгоритм из нескольких шагов.
ЦЕЛЬ: подать Юре очищенное яблоко.
Составьте программу для решения следующей задачи. Введите с клавиатуры два числа: N и M. Если оба числа
больше 100, то замените каждое из них меньшим и выведите результаты на экран. Если первое число положительное, а второе отрицательное, то уменьшите их в два раза и выведите результаты. Иначе, найдите и выведите среднее арифметическое этих чисел.
Вы находитесь на странице вопроса "составить программу на языке паскаль для нахождения максимального элемента в массиве из 7 элементов(целых двухзначный чисел) заданного случайным", категории "информатика". Данный вопрос относится к разделу "1-4" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.