Регистрация
chuckcher
07.12.2020 21:56
Информатика
Есть ответ 👍

Определите какие формулы записаны неправильно * С5+С7= =С7(A5+H7) =B$2*C3 =С5+С7 =B$2*И3

241
301
Посмотреть ответы 1

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

afsanka98
afsanka98
4,5(84 оценок)
Var a: array[1..10] of integer;   i,k,min: integer;   begin  k: =0;   for i: =1 to 10 do begin  read(a[i]);   if (a[i] mod 2=0) and (a[i]< 0) then  k: =k+1;   if a[i]> 0 then min: =a[i];   end;   for i: =1 to 10 do  if (a[i]< min) and (a[i]> 0) then min: =a[i];   writeln('количество четных отрицательных чисел ', k);   if min=0 then writeln('положительных элементов нету') else  writeln('минимальный положительный элемент массива ', min);   end. 

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