const n = 10; var i:integer; mas : array[1..n] of integer; max_num, max_index: integer; begin writeln('введите элементы массива'); for i:=1 to n do readln(mas[i]);
for i := 2 to n do if mas[i] > max_num then begin max_index := i; max_num := mas[i]; end; writeln('Максимальное число ',max_num,' находится на позиции ',max_index); end.
Объяснение -
константы:
n- это сколько чисел будет в твоём массиве
max_num - максимальное число
max_index - позиция числа
Функции :
for i:=1 to n do readln(mas[i]); - вводим числа в массив
for i := 2 to n do if mas[i] > max_num then begin max_index := i; max_num := mas[i]; end;
Конечно, проще было все написать в одной программе:
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016 begin var a:=ArrRandom(30,-99,99); a.Println; Writeln(a.Where(x->(x>0) and x.IsEven).Max); Writeln(a.Where(x->(x<0) and x.IsOdd).Min); Writeln(Range(6,29,7).Select(i->a[i]).Max) end.
Держи: begin var arr:array[1..30] of integer; var max1:=-1; var min2:=1; var max3:=-999999; for var i := 1 to 30 do readln(arr[i]); writeln(arr.JoinIntoString()); for var i := 1 to 30 do begin if (arr[i] >= 0) and (arr[i] > max1) and (arr[i] mod 2 = 0) then max1 := arr[i]; if (arr[i] < 0) and (arr[i] < min2) and (arr[i] mod 2 <> 0) then min2 := arr[i]; if (arr[i] mod 7 = 0) and (arr[i] > max3) then max3 := arr[i]; end; writeln('Максимальное среди четных положительных чисел:' + max1); writeln('Минимальное среди нечетных отрицательных чисел:' + min2); writeln('Максимальное среди чисел кратных 7:' + max3); end. ... Скажи, если надо объяснить ... Если не сложно нажми " " ;)
const
n = 10;
var
i:integer;
mas : array[1..n] of integer;
max_num, max_index: integer;
begin
writeln('введите элементы массива');
for i:=1 to n do readln(mas[i]);
for i := 2 to n do
if mas[i] > max_num then begin
max_index := i;
max_num := mas[i];
end;
writeln('Максимальное число ',max_num,' находится на позиции ',max_index);
end.
Объяснение -
константы:
n- это сколько чисел будет в твоём массиве
max_num - максимальное число
max_index - позиция числа
Функции :
for i:=1 to n do readln(mas[i]); - вводим числа в массив
for i := 2 to n do
if mas[i] > max_num then begin
max_index := i;
max_num := mas[i];
end;
ищем максимальное число и его позицию