Найти максимальный и минимальный из элементов массива с четными и положительными значениями

@Иван1111 · Регистрация: 24.04.2015

Студворк — интернет-сервис помощи студентам

Напишите программу, которая находит максимальный и минимальный из элементов массива с четными и положительными значениями. Если в массиве нет элементов с четными положительными значениями, нужно вывести сообщение об этом.

@Puporev · 04.04.2016, 10:59

Pascal

const max=100;
var a:array[1..max] of integer;
    n,i,mx,mn,k:integer;
begin
randomize;
repeat
write('Размер массива от 2 до ',max,' n=');
readln(n);
until n in [1..100];
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=-15+random(31);
  write(a[i]:4);
 end;
writeln;
k:=0;
for i:=1 to n do
if (a[i]>0)and(a[i] mod 2=0)then
 begin
  if k=0 then
   begin
    mx:=a[i];
    mn:=a[i];
    k:=1;
   end
  else if a[i]>mx then mx:=a[i]
  else if a[i]<mn then mn:=a[i];
 end;
if k=0 then write('Нет четных положительных элементов')
else write('Максимальный из четных положительных=',mx,' минимальный=',mn);
end.

@Иван1111 0 / 0 / 0 Регистрация: 24.04.2015 Сообщений: 12
		1
	Найти максимальный и минимальный из элементов массива с четными и положительными значениями 03.04.2016, 22:46. Показов 35938. Ответов 1 Метки нет (Все метки) Напишите программу, которая находит максимальный и минимальный из элементов массива с четными и положительными значениями. Если в массиве нет элементов с четными положительными значениями, нужно вывести сообщение об этом. 0

	04.04.2016, 10:59

Опции темы

Найти максимальный и минимальный из элементов массива с четными и положительными значениями

Решение