Question

Дан массив из 10 целых чисел. Определите, сколько элементов этого массива имеют максимальное значение. Надо написать на Паскале, объяснить при этом всё, ещё и блок схему надо

Answer 1

Var m:array[1..10] of integer; i,max,cnt:integer;
begin
max := -1000;
write('Massive: ');
for i := 1 to 10 do begin
m[i] := random (11)-5;
write(m[i],' ');
if m[i] > max then begin inc(cnt); max := m[i]; end;
end;
writeln;
writeln('Максимальное число: ',max);
writeln('Всего максимальных чисел: ', cnt);
end.

Answer 2

Var m:array[1..10] of integer; i,max,cnt:integer;
begin
max := -1000;
write('Massive: ');
for i := 1 to 10 do begin
m[i] := random (11)-5;
write(m[i],' ');
if m[i] > max then begin inc(cnt); max := m[i]; end;
end;
writeln;
writeln('Максимальное число: ',max);
writeln('Всего максимальных чисел: ', cnt);
end.

Answer 3

Для решения данной задачи на Паскале можно использовать следующий алгоритм:

1. Объявляем массив из 10 целых чисел. 2. Заполняем массив целыми числами. 3. Инициализируем переменную "максимальное значение" с первым элементом массива. 4. Инициализируем переменную "количество максимальных элементов" с 1. 5. Проходим циклом по оставшимся элементам массива, начиная со второго элемента. 6. Внутри цикла проверяем, если текущий элемент больше или равен "максимальному значению", то обновляем "максимальное значение" и увеличиваем "количество максимальных элементов" на 1. 7. После завершения цикла выводим значение "количество максимальных элементов".

Пример кода на Паскале:

program MaxElementCount;
var
  arr: array[1..10] of integer;
  maxVal, countMax: integer;
  i: integer;
begin
  writeln('Введите 10 целых чисел:');
  for i := 1 to 10 do
    readln(arr[i]);
  
  maxVal := arr[1];
  countMax := 1;
  
  for i := 2 to 10 do
  begin
    if arr[i] >= maxVal then
    begin
      if arr[i] > maxVal then
      begin
        maxVal := arr[i];
        countMax := 1;
      end
      else
        countMax := countMax + 1;
    end;
  end;
  
  writeln('Количество элементов с максимальным значением: ', countMax);
end.

Блок-схема для данного алгоритма:

┌───────┐
│ Ввод 10 чисел │
└───────┘
    │
    ▼
┌───────────────────┐
│ maxVal := arr[1] │
│ countMax := 1    │
└───────────────────┘
    │
    ▼
┌───────────────────────────┐
│ for i := 2 to 10 do      │
│   if arr[i] >= maxVal then│
│     if arr[i] > maxVal then│
│       maxVal := arr[i]    │
│       countMax := 1       │
│     else                  │
│       countMax := countMax + 1│
└───────────────────────────┘
    │
    ▼
┌───────────────────┐
│ Вывод countMax   │
└───────────────────┘

Таким образом, данный код позволяет определить количество элементов массива, имеющих максимальное значение.