• Надо дополнить программу,чтобы он искал решение в x столбце .
    Program A1;
    var
    c: array[1..100, 1..100] of integer;
    a, b: array[1..100] of integer;
    i, j, m, n, k, d: integer;
    begin
    d:=0;
    k:=0;
    writeln('введите кол-во строк в массиве'); readln(n);
    writeln('введите кол-во cтолбцов в массиве'); readln(m);
    for i := 1 to n do
    begin
    for j := 1 to m do begin c[i, j] := random(50); write(c[i, j]:4); end;writeln; end;
    writeln;
    for i := 1 to n do
    for j := 1 to m do
    if (c[i, j] mod 2 = 0) and (c[i, j] mod 2 = 0) and (c[i, j] mod 3 = 0) then begin inc(k); a[k] := c[i, j]; end;
    for i := 1 to k do write(a[i]:4);
    writeln;
    for i := 1 to n do
    for j := 1 to m do
    writeln;
    for i := 1 to d do write(b[i]:4);
    end.

Ответы 5

  • задача такова:дан 2-х мерный массив из элементов х столбца,которая удовлетворяет условию четности и кратности 3-м,сформировать лиинейный массив.
    • Автор:

      devonl74p
    • 6 лет назад
    • 0
  • Program A1;varc: array[1..100, 1..100] of integer;a : array[1..100] of integer;n, m, i, j, x, k: integer;begink:=0;writeln('кол-во строк'); readln(n);writeln('кол-во столбцов'); readln(m);for i := 1 to n dobeginfor j := 1 to m do begin c[i, j] := random(50); write(c[i, j]:4); end;writeln; end;writeln;writeln('введите номер столбца'); readln(x);for i := 1 to n do if (c[i, x] mod 2 = 0) and (c[i, x] mod 3 = 0) then begin inc(k); a[k] := c[i, x]; e
  • writeln('введите номер столбца'); readln(x);for i := 1 to n do if (c[i, x] mod 2 = 0) and (c[i, x] mod 3 = 0) then begin inc(k); a[k] := c[i, x]; end;for i := 1 to k do write(a[i]:4);writeln;
  • сможешь еще помочь?
    • Автор:

      bacchus
    • 6 лет назад
    • 0
  • Дан линейный массив размер 5 с фамилиями участников и 2-х мерная таблица 5х3 с результатми.Вывести на экран фамилии участников,чей результат лучше среднего.Вот эту решить,сможешь,пожалуйста?
    • Автор:

      jesusgray
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years