#include <iostream>
int main(){ int a, max, num; std::cin>>num; while (num) { num--; std::cin>>a; if ((a%5 == 0)&&(a%7 != 0)&&(a > max)) max = a; } std::cout<<a;}
Program keke;
const n=5;
var a:array[1..n] of integer;
i:integer;
begin
For i:= 1 to n do
readln(a[i]);
FOr i:= 1 to n do
a[i]:=a[i]+3;
for i:= 1 to n do
writeln(a[i]);
readln;
end. <span>
</span>
var
str, charQ: string;
begin
str:="Строка";
charQ := Copy(str, 7, 1);
end;
111, 34, 76, A2 -------------------------
// Программа и скриншот ее работы в приложениях
const
T_max=12;
var
i,j,s:byte;
m,n:byte;
T:array[1..T_max, 1..T_max]of integer;
begin
write('Введите значение m>4,n>4 для определения массива T[m,n]: ');
readln(m, n);
writeln('Заполнение массива случайными данными');
//начальные значения min и max
for i:=1 to m do begin
for j:=1 to n do begin
T[i,j]:=random(-79,79);// диапазон случайных чисел
write(T[i,j]:6);
end;
writeln();
end;
writeln();
writeln('Определить количество элементов четвертого столбца массива, меньших 5');
s:=0;
for i:=1 to m do
if (T[i,4]<5) then
s:=s+1;
writeln('Ответ: условию удовлетворяют ', s, ' элементов');
end.