Вводится последовательность неотрицательных целых чисел в количестве 5 штук,нужно найти кол-во четных и не четных цифр в ней,а также вывести максимальное не четное и минимальное нечетное число,если таких чиcел нет-сообщите это пользователю. паскаль.
Var i, a, even, odd, min, max : integer; begin min := 30000; max := -1; for i:= 1 to 5 do begin read(a); if (a mod 2 = 0) then even:= even + 1 else begin odd:= odd + 1; if (a > max) max := a; if (a < min) min := a; end; end; writeln('четных ', even); writeln('нечетных', odd); if (odd = 0)then writeln('нечетных чисел нет'); else writeln('min =' min, ' max = ', max); end.
что то такое, скорее всего есть синтаксические ошибки, т.к. пишу с телефона, надеюсь смысл поняли и сможете сами написать
var a: array [1..100,1..100] of longint ;i, j ,d, n,m,k: longint;beginread(n,m); for i:=1 to n do for j:= 1 to m doread(a[i,j]); j:=0; for i:=1 to n do begin j:=j+1; d:=0; while d<2 do if a[i,j]<0 then begin k:=k+1; d:= 3; end; end;
if k>(m/2) then begin for i:= 1 to n do for j:= 1 to m do if a[i,j]<0 then a[i,j]:=a[i,j]*10 ; end else begin for i:=1 to n do for j:= 1 to m do if a[i,j]<0 then a[i,j]:=a[i,j]*a[i,j] ;end; for i:=1 to n dobegin for j:= 1 to m dowrite(a[i,j],' ');end;end.
i, a, even, odd, min, max : integer;
begin
min := 30000;
max := -1;
for i:= 1 to 5 do
begin
read(a);
if (a mod 2 = 0) then
even:= even + 1
else
begin
odd:= odd + 1;
if (a > max) max := a;
if (a < min) min := a;
end;
end;
writeln('четных ', even);
writeln('нечетных', odd);
if (odd = 0)then
writeln('нечетных чисел нет');
else
writeln('min =' min, ' max = ', max);
end.
что то такое, скорее всего есть синтаксические ошибки, т.к. пишу с телефона, надеюсь смысл поняли и сможете сами написать