В одномерном массиве А(10) найти максимальный элемент, вывести его значение и ин...

August 2021 1 13 Report

В одномерном массиве А(10) найти максимальный элемент, вывести его значение и индекс. заменить все четные элементы значением максимального элемента. полученный массив вывести на экран.

Answers & Comments

kirIlIne Var
a : array[1..10] of integer;
m, i, mi: integer;
begin
for i := 1 to 10 do
read(a[i])
m:=-maxint;
for i := 1 to 10 do
if (a[i]>m) then begin
m:=a[i];
mi:=i;
end;
for i := 1 to 10 do
if (a[i] mod 2 = 0) then a[i] := m;
writeln(m,' ',mi);
for i:= 1 to 10 do
write(a[i],' ');
readln;
end.

3 votes Thanks 6

Answers & Comments

cherno beloe bez gradacij serogo rastrovoe graficheskoe izobrazhenie imeet razmer01d730d7e1f41bcf2611120adf422143 53741

poluchit shestnadcaterichnuyu formu vnutrennego predstavleniya celogo chisla 1450v 2

ocenite informacionnyj obem monoaudiofajla v kilobajtah dlitelnostyu zvuchani

polzovatel kompyutera horosho vladeyushij navykami vvoda informacii s klaviatury36c0fada72beb6bf3e5114ac749ea556 75775

v korobke lezhat ruchki krasnye i sinie sredi nih 28 krasnyh soobshenie o tom

v odnomernom massive a10 najti maksimalnyj element vyvesti ego znachenie i inab2c29fbc7e0e7f43fcc74a133548f20 47692

sformirovat dvumernyj massiv a34 najti kolichestvo otricatelnyh nechetnyh el

1 kakovo bylo vozmozhnoe kolichestvo sobytij esli posle realizacii odnogo iz nih

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

Helpful Links

Helpful Social