Предмет: Информатика,
автор: ichthys1991
Выводится на экран последовательность 20 случайных чисел из промежутка [-10,10]. Определить количество отрицательных чисел больших -5 в данной последовательности.
Ответы
Автор ответа:
0
Если используется Pascal.ABC, то строку massiv[i] := random(-19)+10; нужно заменить на massiv[i] := random(-10, 10);
const
countOfElements = 20;
var
i, countOfNumbers, randomNumber: integer;
massiv : array[1..countOfElements] of integer;
begin
Randomize;
countOfNumbers := 0;
for i:=1 to countOfElements do
begin
massiv[i] := random(-19)+10;
if ( (massiv[i] < 0) AND (massiv[i] > -5) ) then countOfNumbers += 1;
end;
writeln(countOfNumbers);
end.
const
countOfElements = 20;
var
i, countOfNumbers, randomNumber: integer;
massiv : array[1..countOfElements] of integer;
begin
Randomize;
countOfNumbers := 0;
for i:=1 to countOfElements do
begin
massiv[i] := random(-19)+10;
if ( (massiv[i] < 0) AND (massiv[i] > -5) ) then countOfNumbers += 1;
end;
writeln(countOfNumbers);
end.
Похожие вопросы
Предмет: Алгебра,
автор: daasd67
Предмет: Қазақ тiлi,
автор: armibts75
Предмет: Математика,
автор: lox6111
Предмет: Математика,
автор: Настюша12353
Предмет: Математика,
автор: seruiok