Заполнить массив случайными числами в интервале [2; -2] и подсчитать количество положительных элементов
zikov1995123
3
02.04.2019 12:20
6
Другие вопросы по теме Информатика
ладаседан7
23.03.2021 22:33
543421
23.03.2021 22:31
manerov68
23.03.2021 22:27
SOSmi
23.03.2021 22:25
LeraKruspe
23.10.2020 12:49
olesya12let
23.10.2020 12:50
green121
23.10.2020 12:50
Андрюша1789
23.10.2020 12:50
Grister555
23.10.2020 12:50
kiskaignatushkina
23.10.2020 12:50
Популярные вопросы
- - Доповніть речення (мал. 172) PM - КРИА. Медіана.Б. Бісектриса.В. Висота.Г....
3 - Характеристика и тип темперамента...
3 - Назовите комплектования вооружённых сил России,введённый изображённым...
1 - 1, Знайдіть довжину відрізка АВ, якщо А(4;-1;2) В(2;2;8) 2. Накресліть...
2 - Какой из приведённых исторических фактов можно использовать для аргументации...
1 - С 2. В одній такій коробці Є три крашанки. Склади й роз-в яжи задачі за...
2 - З урни, що містить 4 чорні і 6 білих куль, навмання і послідовно дістають...
2 - при каких значения числа а функция у=ах2+9х-2 принимает только отрицательные...
3 - Укажите строку, где во всех глаголах после т пишется ь: А) получает..ся,...
3 - У геометричній прогресії b4 = 8; b7 = 64. Знайдіть b1, q2, S10...
2
Паскаль
uses crt;
var
min,k, i , n : integer;
m: array [1..100] of integer;
begin
randomize;
n:= 5;
for i:= 1 to n do
m[i]:= random (5)-2;
for i:= 1 to n do
write (m[i],' ');
for i:= 1 to n do
if m[i]>0 then k:= k+1;
writeln ;
writeln (k);
readkey;
end.