Массивы - Pascal ABC (12658)
Формулировка задачи:
1) Дан вектор целых чисел. Определить, сколько из них больше предыдущего и послед. чисел?
2)Дана вещественная матрица A(n*n) Если наибольший элемент данной матрицы больше 3, то все ее элементы разделить на этот наибольший элемент. В противном случае матрицу оставить без изменения.
Помогите пожалуйста, пыталась ничего не получилось.
Решение задачи: «Массивы»
textual
Листинг программы
const m = 10; var A:array[1..m] of integer; i,k: integer; begin writeln('Исходный массив:'); for i:=1 to m do begin A[i]:=random(10)-random(10); write(A[i]:3); end; writeln; k:=0; for i:=2 to m-1 do if (A[i] > A[i-1]) and (A[i] > A[i+1]) then inc(k); writeln('Количество искомых элементов: ', k); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д