Массивы - 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.923 из 5
Похожие ответы