Регистрация
Dvoeschnick
07.06.2023 12:09
Информатика
Есть ответ 👍

Составьте и отладьте программу для вычисления количества всех четных отрицательных чисел от 17 до 20

189
254
Посмотреть ответы 2

Ответы на вопрос:

kirill67r
kirill67r
4,4(49 оценок)

var count, i :integer;

begin

 write('Четные отрицательные числа отрезка [-17, 20]: ');

 for i := -17 to 20 do

 begin

   if (i mod 2 = 0) and (i < 0) then

   begin

     inc(count);

     print(i, ' ');

   end;

 end;

 writeln();

 write('Их количество: ', count);

end.

далекоотсолнца
далекоотсолнца
4,4(77 оценок)
Var       x, y: array[1..100] of integer;       i, n, k: integer;       min, max: integer; begin       {ввод массива}       write('n = ');       readln(n);             writeln('данные массива: ');       for i : = 1 to n do       begin               readln(x[i]);                     end;       writeln();             {минимум и максимум}       max : = x[1];       min : = x[1];       for i : = 1 to n do       begin               if max < x[i] then max : = x[i];               if min > x[i] then min : = x[i];       end;       writeln('max = ', max);       writeln('min = ', min);       writeln('avg = ', (max + min) / 2);             max : = (max + min) / 2;       k : = 0;       for i : = 1 to n do       begin               if x[i] > = max then begin                       k : = k + 1;                       y[k] : = x[i];                       write(y[k], ' ');               end;       end; end.

Популярно: Информатика