Pascal:
program z1;
var i, k, n, ch:integer;
begin
n:=0;
ch:=0;
for i:=1 to 15 do
begin
writeln('Input number:');
readln(k);
if(k mod 2=0) then
ch:=ch+1
else
n:=n+1;
end;
writeln('Нечетных было ', n);
writeln('Четных было ', ch);
end.
program prim;
uses crt;
var
a,b,r: integer;
begin
clrscr;
writeln ('ввести два числа');
readln (a,b);
if a>b then
begin
r:=a-b;
end
else
begin
r:=b-a;
end;
writeln ('r=', r:5);
readkey;
end.
R, c = input().split()arr = list() for _ in range(int(r)): arr.append(list(map(int, input().split())))m = max(e for r in arr for e in r) for i, r in enumerate(arr): if m in r: print(i, r.index(m)) break