Тема: «Нахождение МАХ и MIN элементов одномерного массива» :16:36

X[I] mod 2 <>0 условие нечётности X[I] mod 3<>0 условие не кратности 3 X[I] <=0 условие неположительности X[I] <0 условие отрицательности a:=X[I] mod 10a - последняя цифра числа X[I] K:=k+1 количество элементов X[I] mod 2=0 условие чётности X[I] mod 7=0 условие кратности 7 X[I] >=0 условие неотрицательности X[I] >0 условие положительности P:=P*a[ I ] произведение элементов X[I] := X [ I ] div 10 уменьшение числа X[ I ] на разряд S:=s+f [ I ] сумма элементов

Алгоритм нахождения МАХ элемента одномерного массива 1. За МАХ элемент берём элемент массива(соответствующий условию) 2. Сравниваем все элементы массива с этим элементом. Если элемент массива, больше чем МАХ, то МАХ присваиваем значение этого элемента. max:=b[1]; For i:=1 to n do if b[i]>max then max:=b[i];

Задача 1 Пусть b[1],..., b[n] - целые числа из промежутка(-14;25). Найти наибольший элемент и его номер среди положительных элементов массива.

Program PR3; Uses crt; Var max,I,n, imax: integer; b: array[1..100] of integer; Begin Writeln(введи кол-во элементов n); Read(n); Writeln( исходный массив); For I:=1 to n do begin b[ I ]:= Random( )-14; if b[ I ] >0 then begin max :=b[i]; imax:=i; end; Writeln(b[, I, ]=,b[ I ] ); end; {мах элемент и его номер среди положительных } For I:=1 to n do IF (b[ I ] >0) and (b[i]>max) then begin max:=b[i]; imax:=I; end; writeln; Writeln(MAX=, MAX, его номер=, imax ); End.

Домашнее задание Задача Пусть b[1],..., b[n] - целые числа из промежутка(-4;25). Найти наименьший элемент и его номер среди неположительных элементов массива.

Решение задач 1 вариант Пусть a[1],..., a[n] - целые числа. Найти наименьший элемент и его номер среди кратных 3, отрицательных элементов массива. 2 вариант Пусть a[1],..., a[n] - целые числа. Найти наибольший элемент и его номер среди не кратных 4, положительных элементов массива.