Var a,max,sum:integer; arr:array [0..2015] of integer; begin randomize; max:=-500; sum:=0; for a:=0 to 2015 do begin arr[a]:=random(1001)-500; if max<arr[a] then max:=arr[a]; end; write('максимальный элемент массива ==> ',max); writeln();
if max mod 2 = 1 then begin for a:=0 to 2015 do begin if arr[a] mod 2 =1 then sum:=sum+arr[a]; end; writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum); end;
sum:=0; if max mod 2 = 0 then begin for a:=0 to 2015 do begin if arr[a] mod 2 =0 then sum:=sum+arr[a]; end; writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum); end;
В программе определяется максимальное значение в массиве Dat и номер элемента, имеющего это максимальное значение. В терминах задачи - определяется максимальное количество самолетов и число, когда было отправлено это максимальное количество самолетов. Значение переменной m после завершения цикла будет = 6, а значение переменной day будет = 10. На экран будет выведено значение 10. Начальные присваивания: day:=1; m := Dat[1]; Затем в цикле элементы массива (начиная со второго) сравниваются с текущим значением переменной m (Dat[k] >= m). Если это условие выполняется, то значение переменных m и day меняются. Таким образом, после проверки всех элементов массива в переменной m будет записано максимальное значение (точнее - последнее максимальное, так как знак сравнения >=), а в переменной day - номер элемента массива, имеющего это максимальное значение.
arr:array [0..2015] of integer;
begin
randomize;
max:=-500;
sum:=0;
for a:=0 to 2015 do begin
arr[a]:=random(1001)-500;
if max<arr[a] then max:=arr[a];
end;
write('максимальный элемент массива ==> ',max);
writeln();
if max mod 2 = 1 then begin
for a:=0 to 2015 do begin
if arr[a] mod 2 =1 then sum:=sum+arr[a];
end;
writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum);
end;
sum:=0;
if max mod 2 = 0 then begin
for a:=0 to 2015 do begin
if arr[a] mod 2 =0 then sum:=sum+arr[a];
end;
writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum);
end;
end.
Значение переменной m после завершения цикла будет = 6, а значение переменной day будет = 10. На экран будет выведено значение 10.
Начальные присваивания:
day:=1; m := Dat[1];
Затем в цикле элементы массива (начиная со второго) сравниваются с текущим значением переменной m (Dat[k] >= m). Если это условие выполняется, то значение переменных m и day меняются. Таким образом, после проверки всех элементов массива в переменной m будет записано максимальное значение (точнее - последнее максимальное, так как знак сравнения >=), а в переменной day - номер элемента массива, имеющего это максимальное значение.