Написать программу ввода 15 элементов одномерного массива с клавиатуры
andrei182
2
08.04.2020 18:45
1
Другие вопросы по теме Информатика
sashgrts
19.10.2020 06:00
erniaz2005
19.10.2020 05:59
ss0307031
19.10.2020 05:59
businkakiss
03.08.2019 20:20
anastasia1medvedeva
03.08.2019 20:20
shutilkaha
23.11.2020 23:32
milanaphenix
23.11.2020 23:29
Artemko1337
23.11.2020 23:28
baha50
23.11.2020 23:28
RancoR1
06.09.2019 17:30
Популярные вопросы
- Визнач всі корені тригонометричного рівняння: і відзнач їх у наведених варіантах:...
3 - Площадь прямоугольника равна 168 см2, а его периметр равен 52 см. Найди стороны...
3 - Выпишите названия ДВУХ явлений русской культуры, которые относятся ко II половине...
2 - 1. I in Vancouver in 1990. a) am born b) born c) was born d) will be born 2. The...
1 - Українська мова Вправа 427 (2) 8 клас, Заболотний НУЖЕН ОТВЕТ. ...
3 - РЕШИТЕ ЗАДАЧУ ПО ФИЗИКЕ 10 КЛАСС ОЧЕНЬ НАДО...
2 - Твір есе на тему що я усвідомила після прочитання казки конрад або дитина з бляшанки...
3 - A-9 см.b-?см в 3 раза меньше чем а Р квадрат -? См...
3 - Сколько граммов и молей оксида калия образуется при сгорании 7,8 граммов калия?...
1 - Каким (остроугольным, тупоугольным, прямоугольным) является треугольник, у которого...
3
Объяснение:
Program kl;
var a:array[1..15] of real;
i:integer;
k:real;
begin
k:=0;
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]<0 then
begin
k:=k+1;
end;
end;
writeln('кол-во отрицательных элементов=',k);
end.