PASCALik

Сравнить количество четных и нечетных чисел

Дана матрица целых чисел. Найти, каких чисел в этой матрице больше — четных или нечетных.

Program Chetnie;

const n=4;m=4;

var

    A:array [1..n,1..m] of integer;

    chet,nechet,i,j:integer;

begin

chet:=0;

nechet:=0;

writeln;

writeln(’Vvedite elementy massiva:’);

for i:=1 to n do

   for j:=1 to m do

    begin

      read(A[i,j]);

      if a[i,j] mod 2 = 0 then chet:=chet+1

         else nechet:=nechet+1;

    end;

if chet>nechet then writeln(’Chetnih bolshe’);

if chet<nechet then writeln(’Nechetnih bolshe’);

if chet=nechet then writeln(’Rovno’);

readln;

end.

Теги: количество, Матрица, нечетные, четные

Найти строку с наибольшей длинной

В текстовом файле найти строку, которая имеет наибольшую длину. Если таких строк несколько, то вывести первую из них.

Program dlina;

var

  F: Text;

  str,tstr: string;

  maxlen,max2,y,n :integer;

Begin

  Assign(F,’D:\pascal\Test.txt’);

  Reset(F);

  tstr:=”;

  maxlen:=0;

  y:=0;

  While not eof(f) do

   Begin

             Readln(f,str);

             y:=y+1;

             if length(str)=maxlen then max2:=maxlen;

      if length(str)>maxlen then

       begin

          maxlen:=length(str);

          tstr:=str;

          n:=y;

       end;

   end;

  if max2=maxlen then Writeln(tstr)

      else write(n);

  close(f);

End.

Теги: наибольший, строка, файл