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

1)даны натуральное число n и вещественные числа
1 2 , , . n a a a
определить
количество отрицательных и количество положительных вещественных
чисел.
2)даны натуральное число n и вещественные числа
1 2 , , . n
x x x
найти количество вещественных чисел, которые больше своих "соседей", т. е. предшествующего и последующего.
обе проги в си, : )

Показать ответ
Ответ:
Liana03102000
Liana03102000
20.11.2019 20:03

ответ:

program qq;

var a: array of real;

i,n,imax: int64;

begin

write('введите количество элементов > > > ');

readln(n);

writeln('');

setlength(a,n);

for i: =0 to n-1 do

begin

write('введите элемент №',i+1,' > > > ');

readln(a[i]);

end;

imax: =0;

for i: =1 to n-1 do

if a[i]> a[imax] then imax: =i;

writeln('');

write('максимальный элемент ',a[imax],' находится под номером ',imax+1);

end.

объяснение:

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота