Дан массив состоящ из 15 целых чисел,заполненых случ.образом в промежутке от -10 до 10.Найти максимальный элемент и заменить его значение на 50
10-11 класс
|
Pascal
var
a:array[1..15] of integer;
max,i:integer;
begin
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]>max then max:=a[i];
end;
writeln(max);
end.
Другие вопросы из категории
последовательность этих букв кодирующую адрес указанного файла в сети интернет.
Читайте также
а) Вывести все числа, которые встречаются в этом массиве по нескольку раз;
б) Вывести все числа, которые встречаются в массиве только по одному разу.
_______________________
от 15 до 25 ________________________
от -10 до -20 ___________________________
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
среди 10 элементов вещественного массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов