Вопрос по информатике:
Паскаль АВС.net массивы !
Создайте массив А [1..8] с помощью генератора случайных чисел с элементами от -10 до +10 и выведите его на экран. Подсчитайте количество отрицательных элементов массива.
Пожаловаться
- 20.04.2015 19:50
- Информатика
- remove_red_eye 10217
- thumb_up 25
Ответы и объяснения 2
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(8,-10,10);
Writeln('Кол-во отрицательных: ',a.Println.Where(x->x<0).Count)
end.
Пример
2 -6 3 -2 1 6 -1 9
Кол-во отрицательных: 3
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(8,-10,10);
Writeln('Кол-во отрицательных: ',a.Println.Where(x->x<0).Count)
end.
Пример
2 -6 3 -2 1 6 -1 9
Кол-во отрицательных: 3
Пожаловаться
- 21.04.2015 15:26
- thumb_up 35
Const
N = 8;
Var
A:array[1..N] of integer;
i,ko:integer;
Begin
Write('Исходный массив:');
ko:=0;
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
if A[i]<0 then ko:=ko+1;
End;
WriteLn;
WriteLn('Кол-во отрицательных элементов массив: ',ko);
End.
Пример:
Исходный массив: -6 -6 -6 5 7 6 10 -3
Кол-во отрицательных элементов массив: 4
N = 8;
Var
A:array[1..N] of integer;
i,ko:integer;
Begin
Write('Исходный массив:');
ko:=0;
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
if A[i]<0 then ko:=ko+1;
End;
WriteLn;
WriteLn('Кол-во отрицательных элементов массив: ',ko);
End.
Пример:
Исходный массив: -6 -6 -6 5 7 6 10 -3
Кол-во отрицательных элементов массив: 4
Пожаловаться
- 22.04.2015 15:29
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы