Задать вопрос Регистрация
Помочь другим

  • в двумерном массиве 5×5 найти количество положительных элементов

Ответы 2

  • program n1;

    var

    x,y,i:integer;

    A= array [1..5, 1..10] of <тип элементов>;

    begin

    for x:= 0 to 5 then

    begin

    for y:= 0 to 5 then

    begin

    if A[x][y] >= 0

    then

    i= i+1;

    end;

    end;

    writeln('Кол-во положительных: ',i)

    end.

  • Program Zn;Var i,j,c:integer;m: array [1..6, 1..6] of byte

    BeginFor i:=1 to 5 then beginFor j:= 0 to 5 thenIf A[i,j] >= 0 then inc(c)End;Writeln('Количество положительных эллементов: ',с)End. 

    • Автор:

      rene7xrj
    • 7 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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