написать програамму в паскале( и сделать блоксхему). Дан массив V размером 25, увеличить элемента массивы, которве больше 2 на 5. Найти max значение нового массива.
Answers & Comments
pacixor
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.
2 votes Thanks 1
nkpk
//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.
1 votes Thanks 1
BabyJustLove
спасибо, но можно как-нибудь по-проще, на уровне школьной программы?
Answers & Comments
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.
//Внимание! Если программа не работает, обновите версию!
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.