profile
Размещено 4 года назад по предмету Информатика от Wellcome

1.Написать программу, которая проверяет, образуют ли элементы введенного с клавиатуры массива неубывающую последовательность.
2.Вставить число А перед всеми элементами, большими А, а число В - после всех элементов, меньших его.
3.Дана матрица Ф(6х7), заполненный случайным образом. Заменить максимальный элемент каждой строки на противоположный по знаку.
4. Дан двумерный массив. Найти сумму элементов его главной диагонали и поизведение элементов побочной диагонали. Результат занести в одномерный массив.
Пожалуйста, помогите, очень нужно! Хотя бы некоторые решите. Второй день не могу сделать! Тема одномерных и двумерных массивов.

  1. Ответ на вопрос
    Ответ на вопрос дан fofgogjoj
                                               НАПИСАНО НА ПАСКАЛЕ!
    2)


    program fofgogjoj;
    const nmax=100;
    var
    m:array[1..nmax] of integer;    
    n,i,j,k:byte;    
    a,b,x:integer;
    begin
    randomize;
    repeat Write('Размер массива до ',nmax div 3,' n=');
    readln(n);
    until n in [1..nmax div 3];
    Writeln('Исходный массив:');
    for i:=1 to n do  
    begin
    m[i]:=random(50);  
    Write(m[i],' ');  
    end;
    Writeln;
    Writeln;
    Write('Введите число для вставки перед a=');
    Readln(a);
    i:=1;
    k:=0;
    while i<=n do  
    begin
    if m[i]>a then    
    begin    
    n:=n+1;    
    k:=1;    
    for j:=n downto i+1 do    
    m[j]:=m[j-1];    
    m[i]:=a;    
    i:=i+2;    end  
    else i:=i+1;  
    end;
    if k=0 then
    Writeln('Элементов больше ',a,' нет')
    else  
    begin  
    Writeln('Массив после вставки числа ',a,' перед большими ',a);  
    for i:=1 to n do  
    Write(m[i],' ');  
    Writeln;  
    Writeln;  
    Write('Введите число для вставки после b=');  
    Readln(b);  
    i:=1;k:=0;  
    while i<=n do  
    if m[i]<b then    
    begin    
    n:=n+1;    
    k:=1;    
    for j:=n downto i+2 do    
    m[j]:=m[j-1];    
    m[i+1]:=b;    
    i:=i+2;    end  
    else
    i:=i+1;  
    if k=0 then
    Writeln('Элементов меньше ',b,' нет')  
    else    
    begin    
    Writeln('Массив после вставки числа ',b,' после меньших ',b);    
    for i:=1 to n do    
    Write(m[i],' ');    
    end;  
    end;
    readln
    end.
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.