Это обонятельная информация
так как говорится про запах, а нос это орган обоняния
//Pascal ABC.NET v3.0 сборка 1111
Var
ar:array[1..10] of integer;
i,k:integer;
begin
randomize;
k:=0;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(30);
write(ar[i]:4);
if ar[i] mod 2=0 then k:=k+1;
end;
writeln;
write('Res=',k);
<span>end.
Пример работы кода:
Array:
21 2 10 22 21 24 29 13 29 28
<span>Res=5</span></span>
Var a, b:integer;
begin
Readln(a) ;
Readln(b) ;
If a mod 2=0 And b mod 2 <>0 then writeln(a+b)
Else writeln (a-b) ;
end.
//Pascal
var
A: array [1..5] of integer;
min, max: integer;
i: byte;
begin
writeln('Заполнение массива.');
for i := 1 to 5 do
begin
write('А[', i, '] = '); readln(A[i]);
end;
writeln;
Max := A[1]; Min := A[1];
for i := 1 to 5 do
begin
if Max < A[i] then Max := A[i];
if Min > A[i] then Min := A[i];
end;
writeln('Максимальное = ', Max);
writeln('Минимальное = ', Min);
writeln('Максимальное и минимальное = ', Max, ' и ',Min);
end.