Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 19:08
1415
Заполнить массив случайными числами в интервале [-1,1] и подсчитать количество нулевых элементов
1
ответ
Var
i,a:integer;
m:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do
begin
m[i]:=random(2)-1;
if m[i]=0 then a:=a+1;
end;
writeln(a);
end.
i,a:integer;
m:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do
begin
m[i]:=random(2)-1;
if m[i]=0 then a:=a+1;
end;
writeln(a);
end.
0
·
Хороший ответ
4 апреля 2023 19:08
Остались вопросы?
Еще вопросы по категории Информатика
A = [-5, 0 , 5, 10] S= 0 for x in A: S += x Определите значение переменной S после выполнения данного фрагмента программы....
какой объем видеопамяти необходим для хранения двух страниц изображения при условии,ЧТО РАЗРЕЩАЮЩАЯ СПОСОБНОСТЬ ДИСПЛЕЯ РАВНА 640*350 пикселей,а колич...
Составьте программу, которая распечатывает полученное число справа налево. Например, если введено число 12345, программа должна напечатать 54321. В от...
В результате проведенных изменений текстовый файл был перекодирован из кодировки, выполненной с помощью алфавита, содержащего 64 символа, в кодировку...
Для групповых операций с файлами используются маски имен файлов. Маска представляет собой последовательность букв и цифр,в которых также могут встреча...
Все предметы 
