Нажимая на кнопку "Задать вопрос", я даю согласие на обработку персональных данных

Задать вопрос
Задать вопрос
  • 1) Удвоить все элементы массива.

    2)Найти сумму элементов двух массивов одинаковой размерности.

    4) Найти Минимальные элементы массива и его индекс.

    5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива

    7) Определить количество максимальных элементов массива

    P.S Ребят, все в паскале...заранее спасибо=*

    • 16 November 2012
    • Ответ оставил: bynov

    var

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

    b:array[1..10,1..10] of integer;

    sum:array[1..10,1..10] of integer;

    pol,otr,max,min:real;

    i,j,indexi,indexj:integer;

    begin

    min:=0;

     max:=0;

    randomize;

    for j:=1 to 10 do

    begin

     for i:=1 to 10 do

    begin

    randomize;

     

     a[i,j]:=random(51);

    randomize;

     

     b[i,j]:=random(51);

     a[i,j]:=a[i,j]*2;

    writeln(a[i,j]);

    a[i,j]:=a[i,j]/2;

    end;

    end;

    for j:=1 to 10 do

    begin

    for i:=1 to 10 do

    begin

    a[i,j]:=a[i,j]+b[i,j];

    writeln(a[i,j]);

    a[i,j]:=a[i,j]-b[i,j];

    end;

    end;

    for j:=1 to 10 do

    begin

    for i:=1 to 10 do

    begin

    if a[i,j]<min then

    begin

     

     min:=a[i,j];

     indexi:=i;

     indexj:=j;

     end;

    end;

    end;

    writeln(min,indexi,indexj);

    for j:=1 to 10 do

    begin

     

     for i:=1 to 10 do

     begin

    if (a[i,j]>0) and (a[i,j]>max) then

    max:=a[i,j];

    end;

    end;

    writeln(max);

    max:=0;

    for j:=1 to 10 do

    begin 

    for i:=1 to 10 do

    begin

     

    if (a[i,j]<0) and (a[i,j]>max) then max:=a[i,j];

    end;

    end;

    writeln(max);

    end.

     

     программа выполняет сразу все 7 пунктов. Значения задаются сами. На выходе с каждой строки Вы получите каждый пункт задания.

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

    • 16 November 2012
    • Ответ оставил: Marinamakkartn

    Если в Паскале:

    for i:=1 to n do

    a[i] = a[i]*2;

    for i:=1 to n do 

    writeln(a[i]);

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
    На сегодняшний день (01.07.2025) наш сайт содержит 244794 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.
  • Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

    Ответить на вопрос

Последние опубликованные вопросы

что значит walk their, her or his Mary is in the perden 25 27) are playing with 2 playing with 2 are sath very happy মজ brother rama is Sam The is my breather Tom 22 hotties as swenining and sang Tomoea and 24... Написание исследования по теме "Сематическая классификация английских заимствований в русском языке" в текстовом формате с проверкой на антиплагиат (не менее двух вордовских страниц) Написание исследования по теме "Сематическая классификация английских заимствований в немецком языке" в текстовом формате с проверкой на антиплагиат (не менее одной страницы в Word) 2 к6выу5у4в5ыу3ыцц Задание 2.7 Передайте следующие предложения в Passive Voice, обращая внимание на место предлога. E.g. We often speak about her. — She is often spoken about. 1. Bessie's father gave her a complete s... When and where are you going to have the celebration In your country at what times are the shops generally open? Почему сокращается численность Казахстанских козерогов?​ Why did people stay in their homes as much as possible?                A. The weather was cold B. There were many thievesC. There were police officers​ Use of English/ Task 4. Read and choose. 1. I enjoy to swim/ swimming. 2. I want to eat/ eating. 3. I hate to work/working on Sunday. 4. I want to learn/ learning Spanish. помогить, соч последнее ... B) Write sentences use Past Simple and Past Continuous 1)When/Alice/wake up /it/rain 2) Her/mother/make/breakfast/ when /she/come /home​
*{ message }*