Числовой массив - Pascal

Узнай цену своей работы

Формулировка задачи:

В одномерном числовом массиве V все максимальные элементы замениь элементом, значение которого равно K.

Решение задачи: «Числовой массив»

textual
Листинг программы
var a:array[1..100] of integer;max,i,n,k:integer;
begin write('kol-vo elementov');readln(n);
writeln('vvedite k:');readln(k);randomize;
writeln('massiv A=');
for i:=1 to n do begin
a[i]:=random(10)-5;write(a[i]:4);end;writeln;
max:=a[1];
for i:=2 to n do
if max<a[i] then max:=a[i];
writeln('poluchiveshiesa massiv');
for i:=1 to n do begin
if a[i]=max then a[i]:=k;
write(a[i]:4);end;
end.

Объяснение кода листинга программы

  1. Объявлены переменные:
    • a: массив целых чисел размером от 1 до 100;
    • max, i, n, k: целочисленные переменные.
  2. Вводится количество элементов массива (n) и число k.
  3. В цикле формируется массив a: каждому элементу присваивается случайное число от -5 до 4.
  4. Находится максимальное число в массиве (max).
  5. В цикле изменяются значения элементов массива a: если элемент равен max, то его значение заменяется на k.
  6. Выводятся значения элементов массива a.

Оцени полезность:

7   голосов , оценка 4.286 из 5
Похожие ответы