• Помогите решить задачу на паскале.
    Дан массив B (n*m). Элементы массива ввести с клавиатуры. Найти сумму элементов, которые больше данного числа A, но меньше данного числа С. Числа A и С ввести с клавиатуры

Ответы 1

  • Const   n = 3;   m = 4;Var   B:array[1..n,1..m] of integer;   i,j,A,C:integer;   S:real;BeginWriteLn('Введите массив B[',n,',',m,']:');For i:= 1 to n do    For j:= 1 to m do        Read(B[i,j]);Write('A = ');ReadLn(A);Write('C = ');ReadLn(C);S:=0;For i:= 1 to n do    For j:= 1 to m do        if (A<B[i,j])and(B[i,j]<C) then           S:=S+B[i,j];WriteLn('S = ',S);End.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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