Ответы
Ответ дал:
0
program array1;uses crt;var kol,i,N:integer; a:array [1..100] of integer;beginrandomize;write ('Vvedite kolichestvo elementov');read (N);kol:=0;for i:=1 to N dobegina[i]=random (100);if a[i]>0 then kol:=kol+1;end;write ('Kolichestvo elementov =,' kol);end.
Ответ дал:
0
мои глаза...
Ответ дал:
0
Текст необходимо отфороматировать
Ответ дал:
0
// PascalABC.NET 3.3, сборка 1561 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Положительных элементов- ',a.Where(x->x>0).Count)
end.
Пример
n= 13
3 21 -5 46 16 -24 -13 1 -15 41 0 25 48
Положительных элементов- 8
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Положительных элементов- ',a.Where(x->x>0).Count)
end.
Пример
n= 13
3 21 -5 46 16 -24 -13 1 -15 41 0 25 48
Положительных элементов- 8
Похожие вопросы
2 года назад
2 года назад
2 года назад
9 лет назад
9 лет назад
9 лет назад