• 16 November 2012
    • Английский язык
    • Автор: MargaritaMur

    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]);

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

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

Почему сокращается численность Казахстанских козерогов?​ 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​ Topic 2. Write an article to a newspaper (120-150 words) describing the last Sport Competition where you or your friends participated (in a country or abroad) using Past tenses. Try to mention thes... сүт қоректілердің не жатады ​ Что делает человек, чтобы хорошо учиться в школе? Выбери и выпиши глаголы в форме прошедшего времени.1) Did he lived / live with his parents?2) She goed / went to the cinema last weekend.3) We didnt met / meet them at the station.​ Помогите срочно! Rewrite the sentences in reported speech 1. Saule said, "I have never been to Nursultan. I think I will go there next year." 2. Mother said to us, "Did you go to the museum this ... Написать эссе на тему «Преимущества и недостатки игры подростков в компьютерные игры» Кол-во-(90-100 слов) Даю 20 баллов... ​ Упражнения на отработку be going to, will, Present Continuous or Present Simple. Выражения будущего времени. 7 классTask 1I. Complete these sentences using be going to, will, Present Continuous or ... Пожалуйста срочно плис плюс 80 балов 2 Find "hedgehog" in the Wordlist.Найдите значение слова “hedgehog”в словаре.​