profile
Размещено 5 лет назад по предмету Информатика от gavr015666

Дан двумерный массив А. Сформировать одномерный массив, в который
войдут элементы из А, больше 4.

Program primer_laba15;
Var a : array [1..20,1..20] of integer;
b : array [1..100] of integer;
m,n,k,i,j : integer;
Begin
k:=0;
Writeln ('Введите количество строк в массиве'); Readln(n);
Write('Введите количество столбцов в матрице'); Readln(m);
For i:=1 to n do
For j:=1 to m do
Begin
Write('Введите а[', i, ',', j, ']=');
Readln(a[i,j])
End;
For i:=1 to n do
For j:=1 to m do
If a[i,j]>4 Then begin
k:=k+1;
b[k]:=a[i,j];
For k:=0 to i do
End;
Writeln('b[', i, ']=', b[k]);
Readln
End.

Что я делаю не так?

  1. Ответ на вопрос
    Ответ на вопрос дан HappyCoder

    var

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

     b: array [1..100] of integer;

     m, n, k, i, j: integer;

    begin

     k := 0;

     Writeln('Введите количество строк в массиве'); Readln(n);

     Write('Введите количество столбцов в матрице'); Readln(m);

     for i := 1 to n do

       for j := 1 to m do

       begin

         Write('Введите а[', i, ',', j, ']=');

         Readln(a[i, j])

       end;

       Writeln('Новый массив');

     for i := 1 to n do

       for j := 1 to m do

         if a[i, j] > 4 Then begin

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

           Write(b[i], ' ');

         end;

    end.

    Тестовое решение

    Введите количество строк в массиве

    3

    Введите количество столбцов в матрице3

    Введите а[1,1]=4

    Введите а[1,2]=6

    Введите а[1,3]=7

    Введите а[2,1]=0

    Введите а[2,2]=2

    Введите а[2,3]=6

    Введите а[3,1]=5

    Введите а[3,2]=4

    Введите а[3,3]=3

    Новый массив

    6 7 6 5

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 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) их не спросили

Информация

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