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

July 2022 1 8 Report

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

Answers & Comments

RomaNikulin Const n = 10;
var A: array [1..n] of integer;
   i, k: integer;
begin
for i := 1 to n do
   A[i] := 1 + random(30);
k := A[1];
for i := 1 to n do
if A[i] > k then k := A[i];
writeln('Максимальное значение массива - ',k);
for i := 1 to n do
   begin
if i mod 2 = 0 then A[i] := k;
writeln('A[', i:2, ']=', A[i]:3);
end;
readln
end.

0 votes Thanks 1

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

sformirovat dvumernyj massiv a34 najti kolichestvo otricatelnyh nechetnyh el

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

v odnomernom massive a10 najti maksimalnyj element vyvesti ego znachenie i in

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

Helpful Links

Helpful Social