0 дауыс
447 көрілді
x[10] массивінің тақ элементтерінің максимумын табу керек.

1 жауап

0 дауыс

program mas;

var x:array[1..10] of integer;
i,takmin:integer;
begin
for i:=1 to 10 do
readln(x[i]);
takmin:=x[i];
for i:=1 to 10 do
if (x[i]mod 2=1)then
takmin:=x[i];
writeln('x[10] massivinin tak alementterinin maksimumi=',takmin);
readln;
end.
...