В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
sashokko
sashokko
24.02.2021 23:55 •  Другие предметы

Дан массив из N действительных чисел. Посчитать сколько в нем отрицательных, положительных и нулевых элементов

Показать ответ
Ответ:
33даник747
33даник747
16.04.2019 23:00
Program Masiv1;
Uses crt;
Var t: array [1 ..10] of real; i,pol,otr,nol: integer;
Begin
   Writeln ('введите 10 элементов массива');
   For I:=1 To 10  Do  Read ( t[i] );
   pol:=0; otr:=0;nol:=0;
   for i:= 1 to 10 do
     if t[i]>0 then pol:=pol+1 else
        if t[i]<0 then otr:=otr+1 else nol:=nol+1;
   Writeln ('число положительных элементов ',pol);
   Writeln ('число отрицательных  элементов ‘,otr);
   Writeln ('число нулевых элементов ',nol);
   Readkey
end.
0,0(0 оценок)
Ответ:
11maksim11
11maksim11
16.04.2019 23:00
var a:array [1..100] of integer;
otr, pol, zero : integer;
i : integer;
begin
//как-то заполняем масив
for i:= 1 to 100 do
begin
 if (a[i] < 0) then inc(otr) else
 if (a[i] = 0) then inc(zero) else
 if (a[i] > 0) then inc(pol);
end;
 
writeln('Отрицательных = ', otr, ' положительных = ',pol, ' равных нулю = ',zero);
end.
0,0(0 оценок)
Популярные вопросы: Другие предметы
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота