Какое слово лишнее: носок мозоль георгин помидор озимь цитадель фланель панцирь подстаканник подорожник подснежник подлокотник.

носок мозоль георгин помидор - мозоль

озимь цитадель фланель панцирь - панцирь

подстаканник подорожник подснежник подлокотник .- подорожник

program bar;

uses crt;

const

  nn = 100; { максимальный размер массива }

var

  i, j, n: integer;

  a: array[1..nn] of integer;

begin

  randomize;

  write('n = ');

  readln(n);

  for i : = 1 to n do

  begin

    a[i] : = random(199) - 99;

    write(a[i], ' ')

  end;

  writeln;

  j : = 1;

  for i : = 2 to n do

    if a[i] < a[j] then

      j : = i;

  writeln('n min = ', j);

  readkey

end.

Pascal abc первый вариант с вводом числа с клавы, второй с циклом for 1) var a: integer; s: string; begin write('сумма сдачи = '); read(a); if (a> 10)and(a< 21) then s: = ' копеек' else case a mod 10 of 1: s: =' копейка'; 2..4: s: =' копейки'; 0,5..9: s: =' копеек'; end; writeln(a,s); end. 2) var a: integer; s: string; begin for a: = 1 to 100 do   begin   if (a> 10)and(a< 21) then s: = ' копеек'   else   case a mod 10 of   1: s: =' копейка';   2..4: s: =' копейки';   0,5..9: s: =' копеек';   end;   writeln(a,s)   end end.