Написать программу, состоящую из 30 чисел, числа разумеют значения от -500
Написать программку, состоящую из 30 чисел, числа понимают значения от -500 до 500, программка находит малое значение посреди нечетных элементов массива, которые кратны 5.
Задать свой вопрос1 ответ
Василиса Раубэ
Const
n = 30;
var
x: array[1..n] of integer;
i, t, min: integer;
begin
Randomize;
Writeln('Элементы массива');
min:=32767;
for i := 1 to n do
begin
t := Random(1001)-500;
x[i] := t;
Write(t:5);
if Odd(i) and (t mod 5 = 0) and (mingt;t) then min:=t
end;
Writeln;
Writeln('Малый нечетный элемент, кратный 5, равен ',min)
end.
Тестовое решение:
Элементы массива
-64 438 -290 358 -424 234 -444 -17 171 -57 -373 -279 242 -403 -262 34 -488 365 341 -468 163 -276 193 -140 126 -466 -236 -34 350 -369
Малый нечетный элемент, кратный 5, равен -290
n = 30;
var
x: array[1..n] of integer;
i, t, min: integer;
begin
Randomize;
Writeln('Элементы массива');
min:=32767;
for i := 1 to n do
begin
t := Random(1001)-500;
x[i] := t;
Write(t:5);
if Odd(i) and (t mod 5 = 0) and (mingt;t) then min:=t
end;
Writeln;
Writeln('Малый нечетный элемент, кратный 5, равен ',min)
end.
Тестовое решение:
Элементы массива
-64 438 -290 358 -424 234 -444 -17 171 -57 -373 -279 242 -403 -262 34 -488 365 341 -468 163 -276 193 -140 126 -466 -236 -34 350 -369
Малый нечетный элемент, кратный 5, равен -290
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов