1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

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

Одновимірний Масив

Тема в разделе "Вопросы новичков и не только", создана пользователем VovJkee, 24 ноя 2012.

  1. VovJkee

    VovJkee Гость

    Репутация:
    0
    Заданий одновимірний масив А з 10 чисел. Побудувати масив В, кожний елемент якого обчислюється: bi=amax-ai. Надрукувати вхідний та вихідний масиви, максимальний елемент та його номер. PASCAL
     
  2. sinkopa

    sinkopa Well-Known Member

    Репутация:
    0
    Регистрация:
    17 июн 2009
    Сообщения:
    344
    Симпатии:
    9
    Код:
    program array10;
    
    var
    A,B: Array [1..10] of Integer;
    MaxA,MaxB: Integer;
    NumMaxA,NumMaxB: Integer;
    i: Integer;
    begin
    MaxA := Low(Integer);
    MaxB := Low(Integer);
    NumMaxA := 0;
    NumMaxB := 0;
    Writeln('Enter an array "A" of 10 elements');
    for i := 1 to 10 do
    begin
    Write('A[',i,'] :=');
    Readln(A[i]);
    if (A[i] > MaxA) then
    begin
    MaxA := A[i];
    NumMaxA := i;
    end;
    end;
    WriteLn;
    
    for i := 1 to 10 do
    begin
    B[i] := MaxA - A[i];
    if (B[i] > MaxB) then
    begin
    MaxB := B[i];
    NumMaxB := i;
    end;
    end;
    
    Write('Array "A" : [');
    
    for i := 1 to 10 do
    begin
    Write(A[i]);
    if (i < 10) then Write(',');
    end;
    WriteLn(']');
    WriteLn('Max of Array "A" := ', MaxA, ' in index ',NumMaxA);
    WriteLn;
    
    Write('Array "B" : [');
    
    for i := 1 to 10 do
    begin
    Write(B[i]);
    if (i < 10) then Write(',');
    end;
    WriteLn(']');
    WriteLn('Max of Array "B" := ', MaxB, ' in index ',NumMaxB);
    WriteLn;
    
    Writeln('Press <ENTER> to exit');
    Readln;
    end.
     
Загрузка...
Похожие Темы - Одновимірний Масив
  1. Andrey0707
    Ответов:
    1
    Просмотров:
    818
  2. Gartus

    Масив

    Gartus, 9 ноя 2014, в разделе: С и С++
    Ответов:
    1
    Просмотров:
    896
  3. andriana
    Ответов:
    1
    Просмотров:
    1.289
  4. Jora
    Ответов:
    4
    Просмотров:
    1.588
  5. Вадим90
    Ответов:
    1
    Просмотров:
    1.322

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