Question

написать програамму в паскале( и сделать блоксхему). Дан массив V размером 25, увеличить элемента массивы, которве больше 2 на 5. Найти max значение нового массива.

Answer 1

var
  V: array[1..25] of integer;
  i, max: integer;
begin
randomize;
writeln('Исходный массив.');
for i := 1 to 25 do
begin
  V[i] := random(5);
  write(V[i], ' ');
end;
max := V[1];
writeln;
writeln('Измененный массив.');
for i := 1 to 25 do
begin
  if V[i] > 2 then V[i] := V[i] + 5;
  if V[i] > max then max := V[i];
  write(V[i], ' ');
end;
writeln;
writeln('max = ', max);
end.

Answer 2

А как насчет "и сделать блоксхему" ?

Answer 3

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

  var V:=ArrRandom(25,0,20); V.Println;

  var mas:=V.Select(t-> t>2 ? t+5 : t).ToArray; mas.Println;

  Writeln('max=',mas.Max);

end.

Answer 4

Нужно было добавить .ToArray

Answer 5

ясно , спасибо

Answer 6

Еще раз: любые расширения для преобразования массива, если это особо не оговорено, стремятся превратить его в последовательность.

Answer 7

Это сделано в целях эффективности: последовательности не хранятся и их элементы никуда не копируются, поэтому в цепочках экономится и память, и время.

Answer 8

ок , спасибо !