Подсчитать количество целых чисел среди чисел a, b, c.

var

  a, b, c : real;

  count : byte;

begin

  read (a, b, c);

  count : = 0;

  if frac (a) = 0 then inc (count);

    if frac (b) = 0 then inc (count);

  if frac (c) = 0 then inc (count);

  writeln (count);

end.

var ran0: array[1..20] of string; {массив для ввода туда слов}

i,j:integer;

strk:string;

begin

for i:=1 to 20 do  

begin

readln(ran0[i]);                  {вбиваем туда слова}

ran0[i]:=ran0[i][2:];             {отбрасываем цифру с точкой с среза}

end;

for i:=1 to 19 do                  {выполняем обычную сортировку}

 for j:=1 to 20-i do

  if (ran0[j])>(ran0[j+1]) then  {каждый сивол кодируется числовым значением, поэтому чем меньше код символа, тем ближе символ к началу}

 begin

 strk:=ran0[j];                  {сортируем массив}

 ran0[j]:=ran0[j+1];

 ran0[j+1]:=strk;

 end;

 for i:=1 to 20 do                {выводим отсортированный массив}

   write(ran0[i][3:],', ');

   end.

по информатике, ____ Реализовать программу следующего задания не менее чем двумя

вариантами разных циклов (например, с заранее заданным

количеством повторений, с предусловиями, с постусловиями, с

меткой и разветвлением).

В массиве из 15 элементов (ввод переменных – на ваше усмотрение)

подсчитать количество положительных (четных) и сумму

отрицательных элементов по информатике, ____ Реализовать программу следующего задания не менее чем двумя

вариантами разных циклов (например, с заранее заданным

количеством повторений, с предусловиями, с постусловиями, с

меткой и разветвлением).

В массиве из 15 элементов (ввод переменных – на ваше усмотрение)

подсчитать количество положительных (четных) и сумму

отрицательных элементов.

Объяснение: