Завдання з інформатики, до ть будь ласка ​

нц пока не сверху свободно

закрасить

вправо

кц

 

нц пока сверху свободно

вправо

кц

 

нц пока справа свободно

закрасить

вправо

кц

 

нц пока не справа свободно

закрасить

вниз

кц

 

нц пока справа свободно

вниз

кц

 

нц пока не справа свободно

закрасить

вниз

кц

 

 

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.

 

Для проверки правильности работы программы необходимо использовать следующие тесты:

 

Объяснение:

1)Составьте программу, которая находит большее из двух введенных с
клавиатуры чисел a, b и выводит его на экран. Числа 7 и 9
var a,b : integer;
begin
 write('Enter a: ');
 read(a);
 write('Enter b: ');
 read(b);
 if a>b then writeln(a)
 else writeln(b);
end.
2) Составьте программу, которая находит меньшее из трёх введенных
чисел a, b, c и выводит его на экран. Числа 10, 4 и 9
var a,b,c : integer;
begin
 write('Enter a: ');
 read(a);
 write('Enter b: ');
 read(b);
 write('Enter c: ');
 read(c);
 if (a<b) and (b<c)  then writeln(a);
  if (b<c) and (c<a) then writeln(b)
  else writeln(c);
end.
3) Составьте программу определяющую, является ли введенное с
клавиатуры целое число кратным 3.
var a: integer;
begin
 write('Enter a: ');
 read(a);
 if (a mod 3) = 0 then writeln('Кратно')
 else writeln('Не кратно');
end.