Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
Solbon
0 / 0 / 1
Регистрация: 28.02.2011
Сообщений: 16
1

Найти минимальное, максимальное и среднее значение элементов массива

28.02.2011, 09:34. Просмотров 1454. Ответов 1
Метки нет (Все метки)

1)Ввести массив из 10 чисел. Найти минимальное, максимальное и среднее значение. Эти значения выдаются в различных окнах, окна появляются случайным образом в различных местах экрана через 2 сек. При появлении каждого из окон звучит звуковой сигнал разной тональности.
Выход из программы - нажатием любой буквенной клавиши.


2)Ввести массив из 7 символов. Организовать 3 окна, в одном - цифры, в другом - буквы, в третьем - знаки, которые содержались во введенном массиве.
Окна появляются поочередно через 3 сек., каждое со своим звуковым сигналом.
Выход из программы - нажатием клавиши Esc.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.02.2011, 09:34
Ответы с готовыми решениями:

В массиве найти минимальное, максимальное и среднее арифметическое значение элементов
В массиве А найти минимальное, максимальное и среднее арифметическое значение...

Найти максимальное и минимальное значение, и заменить их на среднее арифметическое всего массива
В массиве n≤20 элементов. Найти максимальное и минимальное значение, и заменить...

Найти максимальное и минимальное значения среди элементов массива и их среднее арифметическое
Помогите пожалуйста с заданием: В массиве А(20) найти максимальное и...

Найти сумму,минимальное,максимальное и среднее арифметическое элементов одномерного массива
Помогите найти сумму,минимальное,максимальное и среднее арифметическое...

Найти максимальное и минимальное значение среди элементов массива
Помогите пожалуйста. Описать вещественный массив из n элементов. Заполнить его...

1
Puporev
Модератор
55007 / 42303 / 29212
Регистрация: 18.05.2008
Сообщений: 99,947
28.02.2011, 10:21 2
Лучший ответ Сообщение было отмечено Solbon как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
uses crt;
const n=10;
      bk=['a'..'z','а'..'п','р'..'ё'];
var a:array[1..n] of real;
    i,x,y:byte;
    mn,mx,sr:real;
    c:char;
begin
randomize;
textbackground(0);
textcolor(15);
clrscr;
write('Введите элементы массива:');
write('a[1]=');
readln(a[1]);
mn:=a[1];
mx:=a[1];
sr:=a[1];
for i:=2 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
  if a[i]<mn then mn:=a[i];
  if a[i]>mx then mx:=a[i];
  sr:=sr+a[i];
 end;
sr:=sr/n;
textbackground(0);
textcolor(15);
clrscr;
writeln('Буквенная клавиша - выход, другие - продолжение');
repeat
  x:=random(70)+2;
  y:=random(21)+2;
  window(x,y,x+10,y+2);
  textbackground(7);
  textcolor(12);
  clrscr;
  write('min=',mn:0:2);
  sound(600);
  delay(2000);
  nosound;
  x:=random(70);
  y:=random(23);
  window(x,y,x+10,y+2);
  textbackground(3);
  textcolor(13);
  clrscr;
  write('max=',mx:0:2);
  sound(500);
  delay(2000);
  nosound;
  x:=random(70);
  y:=random(23);
  window(x,y,x+10,y+2);
  textbackground(6);
  textcolor(9);
  clrscr;
  write('sred=',sr:0:2);
  sound(400);
  delay(2000);
  nosound;
c:=readkey;
if c in bk then exit;
until c in bk;
end.
Добавлено через 19 минут
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
uses crt;
const bk=['A'..'Z','a'..'z','А'..'п','р'..'ё'];
      cf=['0'..'9'];
var a:array[1..7] of char;
    i,x,y:byte;
    c:char;
begin
randomize;
textbackground(0);
textcolor(15);
clrscr;
writeln('Введите 2 буквы:');
for i:=1 to 2 do
 begin
  repeat
  write('a[',i,']=');
  readln(a[i]);
  until a[i] in bk;
 end;
writeln('Введите 2 цифры:');
for i:=3 to 4 do
 begin
  repeat
  write('a[',i,']=');
  readln(a[i]);
  until a[i] in cf;
 end;
writeln('Введите 3 знака:');
for i:=5 to 7 do
 begin
  repeat
  write('a[',i,']=');
  readln(a[i]);
  until not(a[i] in cf)and not(a[i] in bk);
 end;
textbackground(0);
textcolor(15);
clrscr;
writeln('Клавиша Esc- выход, другие - продолжение');
repeat
  x:=random(70)+2;
  y:=random(21)+2;
  window(x,y,x+5,y+2);
  textbackground(7);
  textcolor(12);
  clrscr;
  for i:=1 to 2 do
  write(' ',a[i]);
  sound(600);
  delay(3000);
  nosound;
  x:=random(70);
  y:=random(23);
  window(x,y,x+5,y+2);
  textbackground(3);
  textcolor(13);
  clrscr;
  for i:=3 to 4 do
  write(' ',a[i]);
  sound(500);
  delay(3000);
  nosound;
  x:=random(70);
  y:=random(23);
  window(x,y,x+7,y+2);
  textbackground(6);
  textcolor(9);
  clrscr;
  for i:=5 to 7 do
  write(' ',a[i]);
  sound(400);
  delay(3000);
  nosound;
c:=readkey;
if c=#27 then exit;
until c=#27;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.02.2011, 10:21

Найти максимальное и минимальное значение элементов массива Х и поменять их местами
Найти максимальное и минимальное значение элементов массива Х и поменять их...

Массивы. Найти среднее, максимальное, минимальное значение
В массиве хранятся оценки студентов по информатике.Найти: - среднюю оценку -...

Найти максимальное, минимальное и вывести среднее арифметическое массива
дан массив от 1до 10. найти максимальное,минимальное и вывести средней...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru