DIM X(10)
RANDOMIZE TIMER
FOR I = 1 TO 10
X(I) = INT(RND(1) * 20) + 1
PRINT X(I); " ";
NEXT I
PRINT
INPUT "Введите число"; K
P = 1
FOR I = 1 TO 10
IF X(I) MOD K = 0 THEN P = P * X(I)
NEXT I
<span>IF P = 1 THEN PRINT "Кратных нет" ELSE PRINT "P ="; P</span>
Все решать или нужно какой то номер
Жили-были в одном селе маленькие счетики.Такие.на которых весь день перебирали косточками и складывали числа.Одна косточка,плюс одна косточка...Как часики-тик-так.Тик-так. Шло время,счетики становились все взрослее и взрослее,а потом и вовсе состарились. Не старилось только время.Оно всё бежало вперёд и вперед. И задумались счетики над тем,что время далеко убежало,его не догнать.и счетиками почему то стали пользоываться всё меньше и меньше И стало счетикам грустно.На них уже никто не складывал косточку к косточке.Отправились счетики вслед за временем. будущее.Ах ! Что за прекрасное будушее открылось перед глазами маленьких счетиков !!!! Огромные вычислительные машины.Они смотрели на счетики как-то свысока и очень строго. А время было не догнать, оно опять убежало вперед. Побежали за ним наши счетики и очутилтись в прекрасной стране под названием "ЗДЕСЬ И СЕЙЧАС ".А в этом времени на счетики смотрели компьютеры. -Что это?- подумали счетики. -Что за странные создания ? А компьютеры ,увидев счетики,ничуть не удивились, ведь в их памяти было заложено,что счетики-это их прабабушка ! Они даже были очень довольны этой встрече,потому что благодаря маленьким счетикам стараниями многих человеческих умов компьютеры появились на свет.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var a:=ReadArrInteger('Введите 5 целых чисел',5);
Writeln('Разница между min и max: ',a.Max-a.Min)
end.
<u><em>Тестовое решение:</em></u>
Введите 5 целых чисел 8 14 -5 0 7
Разница между min и max: 19
Program nurlan,
war m,sh,s:integer,
begin
nead(m,sh),
s:z m+3+sh*3;
wrl+er(s=s);end
