Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 5. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 5. количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число – максимальное число, кратное 5.

program fanisca; uses crt; var  n,temp,i,max: integer; begin  write('введите число n=');   readln(n);   max: =0;   i: =1;   writeln('*** alphaues is ***');   while i< =n do      begin          write('введите ',i,'-е число ');           readln(temp);           if (max< temp) and (temp mod 5 = 0) then max: =temp;           i: =i+1;       end;   writeln('максимальное число, кратное 5, равно ',max); end.

#include< iostream>

 

using namespace std;

 

int main()

{

  int n;

  int a;

  int max = 0;

  cin> > n;

  for(int i=0; i< n; i++)

  {

    cin> > a;

    if(a%5==0 & & a> max) max = a;

  }

  cout< < max< < endl;

  system("pause");

} 

Var   a,k: integer;   y,l,s: real; begin   writeln('введите ненулевое значение a: ');   read(a);   l: =-2.5; k: =0; s: =0;   while l< =2.5 do begin       y: =a*(1+l)/l;       if y< 0 then begin inc(k); s: =s+y end;       l: =l+0.52   end;   writeln(k,' отрицательных значений с суммой ',s) end. тестовое решение: введите ненулевое значение a: -3.1 8 отрицательных значений с суммой -61.8798422368665

{если в вашей версии система "ругается" на sign, раскомментируйте   текст определения этой функции. в противном случае удалите все комментарии }   { function sign(x: real): integer; begin   if x< 0 then sign: =-1   else       if x> 0 then sign: =1 else sign: =0 end; } var   x1,x2,y1,y2: real; begin;   write('введите через пробел координаты точки 1: ');   read(x1,y1);   write('введите через пробел координаты точки 2: ');   read(x2,y2);   if (sign(x1)=sign(x2)) and (sign(y1)=sign(y2))   then writeln('точки находятся в одной четверти')   else writeln('точки находятся в разных четвертях') end. тестовое решение: введите через пробел координаты точки 1: -3.5 8.1 введите через пробел координаты точки 2: -5 4 точки находятся в одной четверти