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

Написать программы 1)в одномерном массиве с(1: 10) найти количество элементов удовлетвор. условию с от i > q и с от i

Показать ответ
Ответ:
dzubaliz
dzubaliz
24.05.2020 04:55

программу написала в паскале, надеюсь подходит))

program 1;
var a:array[1..10] of integer; i,q,max,min,l,k:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
for i:=1 to 10 do
if (a[i]>q) and (a[i]<l) then inc(k);
writeln('k=',k);
end.

2. 

program 2;
var a:array[1..10] of integer; i,max,min,k,l:integer;
begin randomize;
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
max:=a[1];
min:=a[1];
for i:=2 to 10 do
begin
if a[i]>max then
begin max:=a[i]; k:=i; end;
if a[i]<min then
begin min:=a[i]; l:=i; end;
end;
writeln('max=',max,', его индекс=',k,', min=',min,', его индекс=',l);
end.

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