profile
Опубликовано 5 лет назад по предмету Информатика от Kheda

ДАН ДВУМЕРНЫЙ МАССИВ ЧИСЕЛ. ОПРЕДЕЛИТЬ, СУММУ ЭЛЕМЕНТОВ ВТОРОГО СТОЛБЦА МАССИВА, БОЛЬШИХ 10.

  1. Ответ
    Ответ дан sinbad7

    var
    a: array[1..10, 1..10] of integer;
    i, j, s: integer;

    begin
    s := 0;
    for i := 1 to 10 do
    begin
    for j := 1 to 10 do
    begin
    a[i, j] := random(20) + 1;
    write(a[i, j]:3);
    if (j = 2) and (a[i, j] > 10) then s := s + a[i, j];
    end;
    writeln;
    end;
    writeln('Сумма элементов 2го столбца больших 10 равна', s);
    end.

Самые новые вопросы