Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и определить количество отрицательных чисел в массиве
179
275
Ответы на вопрос:
const n=10;
var a: array[1..n] of integer;
i,k: integer;
begin
for i: =1 to n do
begin
a[i]: =random(21)-10;
if a[i]< 0 then k: =k+1;
write(a[i]: 5)
end;
writeln;
writeln (k)
end.
Var h,a,n: integer; begin readln(n); a: =1; h: =3; while h< =n*24 do begin a: =a*2; h: =h+3; end; writeln(a); end.
Популярно: Информатика
-
lixonilya10.10.2020 21:24
-
Сабрина185к19.08.2020 18:25
-
Rm016.06.2020 00:06
-
pechka50908.02.2022 16:23
-
ksuvladyckina1609.07.2020 11:12
-
Малефисента111111123.12.2020 07:03
-
kartil09.02.2022 13:28
-
aimnura7310.02.2022 22:15
-
KolianN04.03.2023 22:20
-
Petersen12.11.2020 13:47