Написать программу, которая запрашивает массив из N элементов и увеличивает все ...

elraminova2010 @elraminova2010

July 2022 1 1 Report

Написать программу, которая запрашивает массив из N элементов и увеличивает все элементы массива на максимальный элемент. Протестировать программу на массивах размерностью 8 и 10 элементов.

Answers & Comments

lNT64 Program z1;
var a:array[1..100] of integer;
n,i:byte;ma:integer;
begin
write('n=');readln(n);
for i:=1 to n do begin
write(i,')');readln(a[i])
end;
ma:=a[1];
for i:=1 to n do begin
if a[i]>ma then begin
ma:=a[i]
end
end;
for i:=1 to n do begin
a[i]:=ma
end;
writeln('test n=',n);
for i:=1 to n do begin
writeln(a[i])
end;
readln
end.

1 votes Thanks 3

Answers & Comments

kakie verny1sushestvuyut tri pryamyekotorye prohodyat cherez odnu tochku2vse vysot

checbe99b35dc01756d9ff8b1a34b3c459 70489

ch404c673db334bbecbf969aba6825bd0a 3342

chpo pution sdelal ostanovku na 6 chasovv rezultate velosipedist zatratil na

pomogitepozhalujstaaiz gorodov a i v navstrechu drug drugu odnovremenno vyehal

vershiny treugolnika delyat opisannuyu okolo nego okruzhnost na tri dugi dliny ko334005dd4a2190832a12ffea7766d3f7 27258

pozhalujstanachertite risunok iz tochki a ne prinadlezhashej ploskosti alfapro

рекомендуемые вопросы

Helpful Links

Helpful Social