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