Задать вопрос
27 декабря, 10:55

В одномерном массиве найти максимальный элемент заменить на 0, и вывести массив на экран. На паскале.

+3
Ответы (1)
  1. 27 декабря, 13:02
    0
    Var

    a:array[1 ... 10] of integer;

    i, b:integer;

    Begin

    b:=1;

    Writeln ('Вводите чесла') ;

    for i : = 1 to 10 do Begin

    read (a[i]) ;

    if i>1 then

    if a[i]>a[i-1] then b:=i;

    End;

    a[b]:=0;

    for i: = 1 to 10 do

    write (a[i],' ') ;

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «В одномерном массиве найти максимальный элемент заменить на 0, и вывести массив на экран. На паскале. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Дан массив А из N целочисленных элементов. 1) Заполнить массив А целыми числами в интервале[1,100] и вывести на экран. Найти максимальный четный элемент и вывести его на экран.
Ответы (1)
В pascal. 1) Заполните массив случайными числами из интервала [-50; 50), вывести на экран, посчитать сумму отрицательных элементов. 2) Ввести одномерный массив, вывести его на экран, найти максимальный элемент и его порядковый номер.
Ответы (1)
В одномерном массиве А (10) найти максимальный элемент, вывести его значение и индекс. Заменить все четные элементы значением максимального элемента. Полученный массив вывести на экран.
Ответы (1)
В одномерном массиве А (10) найти максимальный элемент, вывести его значение и индекс. Заменить все элементы большие 1, но меньшие 4 значением максимального элемента. Полученный массив вывести на экран.
Ответы (1)
1) Заполнить массив размером N целыми числами последовательно от 1 до N. Вывести его на экран. Найти сумму элементов массива и вывести ее на экран. 2) Заполнить массив размером N целыми числами последовательно от N до 1. Вывести его на экран.
Ответы (1)