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

Тема в разделе "Pascal and Delphi", создана пользователем Andrey7284, 22 дек 2013.

Наш партнер Genesis Hackspace
  1. Andrey7284

    Andrey7284 New Member

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

    gpatron Active Member

    Регистрация:
    13 авг 2009
    Сообщения:
    26
    Симпатии:
    0
    Код (LotusScript):
    //определяем макс и мин элементы масива
    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;
     
Загрузка...
Похожие Темы - Помогите Решить Пожалуйста
  1. GREED
    Ответов:
    5
    Просмотров:
    748
  2. merrs
    Ответов:
    1
    Просмотров:
    1.341
  3. Alexey075
    Ответов:
    1
    Просмотров:
    1.815
  4. TankOo
    Ответов:
    1
    Просмотров:
    1.296
  5. darklisa
    Ответов:
    3
    Просмотров:
    1.819

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