1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

Помогите Решить Пожалуйста, Третий День Мучаюсь

Тема в разделе "Вопросы новичков и не только", создана пользователем Andrey7284, 22 дек 2013.

  1. Andrey7284

    Andrey7284 New Member

    Репутация:
    0
    Регистрация:
    22 дек 2013
    Сообщения:
    1
    Симпатии:
    0
    составить программу определения макс и мин числа в массиве состоящем из 20 чисел. Вычислить разность между макс и мин значением и заменить ею четные элементы массива
     
  2. gpatron

    gpatron Active Member

    Репутация:
    0
    Регистрация:
    13 авг 2009
    Сообщения:
    26
    Симпатии:
    0
    Код:
    //определяем макс и мин элементы масива
    max:=a[1];
    min:=a[1];
    for i:= 2 to 20 do
    begin
    if a[i]>max then max:=a[i];
    if a[i]<min then min:=a[i];
    end;
    //вычисляем разность
    razn:=max-min;
    //заменяем четные элементы разностью
    for i:= 1 to 20 do if (a[i] mod 2)=0 then a[i]:=razn;
     
Загрузка...

Поделиться этой страницей