нц пока не сверху свободно
закрасить
вправо
кц
нц пока сверху свободно
вправо
кц
нц пока справа свободно
закрасить
вправо
кц
нц пока не справа свободно
закрасить
вниз
кц
нц пока справа свободно
вниз
кц
нц пока не справа свободно
закрасить
вниз
кц
15.2 Решение
var k, n, a, amax: integer;
begin
amax:=0;
readln(n);
for k:=1 to n do
begin
readln(a);
if (a mod 5 = 0) and (a>amax) then
amax:=a;
end;
writeln(amax);
end.
Для проверки правильности работы программы необходимо использовать следующие тесты:
Объяснение:
?? = ЗНАЧЕН
? = ЛЕВСИМВ
Объяснение:
Рассмотрим выражение ОСТАТ (23;9)+??( СЦЕПИТЬ (23;9))
1) ОСТАТ (23;9) находит остаток от деления на 9. Результатом будет число 5, т.к. 5 - остаток от деления числа 23 на 9.
2) (СЦЕПИТЬ (23;9)) склеивает аргументы в строку, то есть результатом будет строка "239"
3) Т.к. ??( СЦЕПИТЬ (23;9)) складывают с числом 5, то и ??( СЦЕПИТЬ (23;9)) должно быть числом, иначе будет ошибка. Значит ?? - функция, которая преобразовывает строку в число, а такой функцией является ЗНАЧЕН
4) ОСТАТ (23;9)+ЗНАЧЕН( СЦЕПИТЬ (23;9)) = 5 + 239 = 244
Рассмотрим выражение ?(ОСТАТ (23;9)+??( СЦЕПИТЬ (23;9));2)
1) ОСТАТ (23;9)+??( СЦЕПИТЬ (23;9)) = 244, следовательно выражение можно переписать как ?(244;2)
2) Функция ? принимает 2 аргумента, а результатом работы должно быть 24. Видим, что 24 - это первые 2 цифры первого аргумента, то есть первые 2 цифры числа 244. Подходит функция ЛЕВСИМВ, которая вырезает из первого аргумента то количество символов, которое указано во втором аргументе.
arr: array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do
begin
arr[i] := random(100);
write(arr[i] + #9);
end;
writeln();
for i:=1 to 10 do
begin
if arr[i] mod 2 = 0 then
begin
arr[i] := 1
end;
write(arr[i] + #9);
end;
end.