Регистрация
Marina52547
27.11.2020 12:29
Информатика
Есть ответ 👍

Дан массив g(48) (заполнен случайными числами в интервале от -10 до 10) заменить все отрицательные элементы числом

105
257
Посмотреть ответы 2

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

yuliyamusatova1
yuliyamusatova1
4,7(38 оценок)

// PascalABC.NET

begin

 var g := ArrRandom(48, -10, 10);

 g.Println;

 g.Transform(p -> p < 0 ? -1 : p);

 g.Print

end.

KEKSIK13317
KEKSIK13317
4,5(11 оценок)

Pascal:

program pas;

var n,a,i,b:integer;

begin

writeln('N = ');

readln(n);

for i:=1 to n do begin

   readln(a);

   if (a mod 4 = 0) and (a mod 8 <> 0) then b+=1

end;

write('Количество чисел ',b)

end.

Python:

n = int(input("N = "))

b=0

for i in range(n):

   a = int(input())

   if (a%4==0) and (a%8!=0):

       b+=1

print("Количество чисел "+str(b))

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