Определить силу t действующая на тело с массой m которое движется с ускорением a
296
302
Ответы на вопрос:
var k, i, n: integer ;
a: array [1..100]of integer ;
begin
write('введите кол-во элементов в массиве ') ;
read(n) ;
for i: =1 to n do begin
a[i]: =random(100)-50;
write(' ', a[i]) ;
end;
k: =0; writeln;
write ('кол-во отрицательных элементов ') ;
for i: =1 to n do begin
if a[i]< 0 then k: =k+1;
end;
write(k); k: =0;
writeln;
write ('сумма четных элементов ') ;
for i: =1 to n do begin
if a[i] mod 2=0 then k: =k+a[i];
end;
write(k) ; k: =1;
writeln ;
write('произведение элементов в интервале [1; 20] ');
for i: =1 to n do begin
if (a[i]> 0)and(a[i]< 21) then k: =k*a[i];
end;
write(k) ;
end.
Популярно: Информатика
-
lokys01twin07.01.2022 06:20
-
olga81070622.02.2021 09:14
-
switt1q21.01.2020 08:39
-
biv1244804.07.2022 16:20
-
svetlana27822.11.2020 16:25
-
Вожделорд12.01.2021 18:46
-
IBRAGIM05816.04.2023 20:56
-
мпрьььоппааамт10.12.2020 12:10
-
kartofan2016p08uuy25.04.2023 02:12
-
Kristina300214.02.2022 13:29