Найти кол-во отрицательных чисел этого массива const n=15; var a: array[1..n] of integer; i,k: integer; begin randomize; k: = ; for i: =1 to n do a[i]: = random(51)-25; for i: =1 to n do write(a[i]: 4); writeln; for i: =1 to n do if a[i] then k: =; writeln('кол-во отрицательных: ', ); end.
synnjhcx
3
25.07.2019 04:40
0
Другие вопросы по теме Информатика
makc369
17.10.2021 19:33
Агсим
17.10.2021 19:31
ДарьяСв
17.10.2021 19:29
PrivPomogite
17.10.2021 19:25
Аннапомогите
17.10.2021 19:23
Артур3009
17.10.2021 19:23
Brodyga007
17.10.2021 19:18
ochensad
17.10.2021 19:12
Популярные вопросы
- Иванов, обучающийся в заочной аспирантуре Омского государственного университета...
3 - сделать эти 5 тестов по английскому...
3 - Тело движется по закону: S(t) = 3t^3- 3t - 5. Определите в какой момент времени...
3 - ПЕРЕФРАЗИРУЙТЕ В COMPLEX SUBJECT 1.People consider the climate there to be very...
3 - решить 2^x^2 больше или равно 4*2^x...
1 - Решение задач по статистике(3)...
3 - Указать связи слов в словосочетании. Отодвинул рукой, на третьем сеансе,свободный...
3 - Напишите мицеллу, образованную в результате химического процесса Na₂CO₃+CaCI₂....
1 - Упростите выражение 1-sinx cosx tgx при x п/3...
2 - У що перетвориться ізотоп після трьох послідовних - розпаду та двох - розпадів?...
1
begin
if a[i]<0 then
begin
k=k+1;
end;
end;
writeln('кол-во отрицательных: ', k);