Определить наибольший элемент среди чётных по значению элементов всего массива

@kozlov · Регистрация: 05.12.2012

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

определить наибольший элемент среди чётных по значению элементов всего массива

@Leshak · 07.12.2012, 02:15

Pascal

var
 X: array [ 1 .. 30 ] of integer;
 i, max: integer;
begin
randomize;
for i:=1 to 30 do begin
     X[i]:=random(21);
     write(X[i]:3);
end;
writeln;
max:=X[2];
i:=2;
while i <= 30 do begin
        if X[i] > max then max:=X[i];
        i:=i+2;
end;
writeln(max);
readln;
end.

@kozlov -26 / 2 / 0 Регистрация: 05.12.2012 Сообщений: 113
		1
	Определить наибольший элемент среди чётных по значению элементов всего массива 06.12.2012, 19:30. Показов 1695. Ответов 1 Метки значению, массива, наибольший, определить, среди, чётных, элемент, элементов (Все метки) определить наибольший элемент среди чётных по значению элементов всего массива 0

	07.12.2012, 02:15

Определить наибольший элемент среди чётных по значению элементов всего массива

Решение