• Помогите пожалуйста.
    1. Дан массив (n*m). Элементы массива ввести случайным способом. Найти сумму элементов которые больше данного числа А. Число А ввести с клавиатуры.
    2. Дан массив (n*m). Элементы массива ввести в программе. Найти первый элемент, являющийся простым числом и его инедксы.
    3. Дан массив (n*m). Элементы массива ввести с клавиатуры. Найти количество четных элементов массива.

Ответы 1

  • const nx=20;mx=20;var i,j,n,S,a,m:integer; D:array[1..nx,1..nx] of integer; beginwrite('Введите размер матрицы n и m');Readln(n,m);write('Введите число А');Readln(a);for i:=1 to n do beginfor j:=1 to m do beginD[i,j]:= random(100)-50;write(D[i,j]:4);if D[i,j] > a then S:= S + D[i,j];end;writeln;end;writeln;write('S=',S:5);end.
    • Автор:

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

Войти через Google

или

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

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

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