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

Дан массив из 10 элементов -случайных чисел из диапазона [-30; 30]. 1,подсчитать в нем кол-во элементов, равных заданному числу. 2, найти минимальный и максимальный элемент в массиве и их номера. 3, отыскать в массиве локальные минимумы и максимумы.

Показать ответ
Ответ:
ayskamaska
ayskamaska
30.06.2020 07:28
1) 
Program asd;
USES crt;
Const n=10;
var A:array[1..n] of integer;
i,s,k,k1:integer;
BEGIN
Clrscr;
For i:=1 to n do
 begin 
A[i]:=random(10); 
Write(A[i]:4); 
end;       
Writeln;
 Writeln('Введите число: '); 
Readln(s); 
For i:=1 to n do 
 begin   
If A[i]=s then k:=k+1; 
end; 
Writeln('Число  ',s,', его кол-во в массиве:  ',k,' шт.');
END.
2)
Program asd;
USES crt;
Const n=10;
var A:array[1..n] of integer;
 i,min,mini,max,maxi:integer;
BEGIN
Clrscr; 
For i:=1 to n do 
 begin 
A[i]:=Random(20); 
 Write(A[i]:4);
  end;
  Writeln; 
max:=A[1]; 
min:=A[1]; 
For i:=1 to n do 
 begin 
 if A[i]>max then 
 begin 
 maxi:=i; 
 max:=A[i];   
end; 
  if A[i]<min then
 begin   
mini:=i; 
 min:=A[i]; 
  end; 
end; 
Writeln('Максимальное число: ',max,'. Индекс: ',maxi);   
Writeln('Минимальное число: ',min,'. Индекс: ',mini );
END.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота