Вопрос школьника по предмету Информатика
Дан массив а(10), заполненный датчиком
случайных чисел. Найти наибольший
положительный элемент массива и увеличить его
в 3 раза. нужна именно программа а не объяснение , ЗАРАНЕЕ СПАСИБО)
Ответ учителя по предмету Информатика
var
a : array[1..10] of word;
max : word;
begin
randomize;
for I : byte := 1 to 10 do
a[i] := random(1, 60000);
max := 0;
for I : byte := 1 to 10 do
if a[i] > max then max := a[i];
writeln(max*3);
end.
Добавлю и объяснение. Алгоритм заполняет целочисленный массив из десяти элементов случайными числами. Возможны диапазон числе: от 1 до 60000. Затем в следующем цикле выискивается максимальное число, которое выдал генератор случайных чисел. В строке writeln выводится значение этого числа умноженное на три.
Похожие вопросы от пользователей
1.Он рассказал ей правду. 2. Всё произошло иначе. 3. Тимур будут учится в Евразийском университете. 4. Случилось непредвиденное. 5. Они уехали в другой город. 6. Можно сделать такой вывод. 7. Карина позвонила вчера.
СЛОВА ДЛЯ СПРАВОК:к счастью,к несчастью,на беду, к сожалению,на радость, так, следовательно,таким образом;по правде говоря,честно говоря,словом;поверишь ли,представляешь,знаешь,говорят;по словам соседей, как сказала бабушка,по-моему;впрочем,кстати,между прочем.
Один раз я гулял со своей собакой. Собака резво бежала около ноги.
Но вдруг собака заметила в кустах кошку.Собака напряглась взвизгнула и сделала рывок в сторону кошки.Но не тут-то было. Я сразу взял её на короткий поводок и удержал собаку.
Помогите срочно надо.