6. В массиве С из 25 вещественных элементов из диапазона [-10;7] вывести на экран номера тех элементов, которые находятся после максимального элемента. ПАСКАЛЬ.
СРОЧНО ПЖ МНЕ НАДО ЗАВТРА ЛАБУ СДАВАТЬ :С
СРОЧНО ПЖ МНЕ НАДО ЗАВТРА ЛАБУ СДАВАТЬ :С
Ответ
5/5
(1 оценка)
1
Ответ
5/5
(1 оценка)
0
BobbyFresnel
3 года назад
Светило науки - 47 ответов - 0 раз оказано помощи
Если хочется давать решения быстро, надо писать не на ТурбоПаскаль, а на PascalАВС.NЕТ:
##
var n := 25;
var c := SeqRandom(n, -100, 70).Select(t -> t / 10).ToArray;
c.Println;
var i := c.IndexMax;
if i < n - 1 then
Range(i + 2, n).Print
Мозг
Отвечающий
program prog;
var
c:array[1..25] of integer;
k,i,max:integer;
begin
k:=0;
max:=0;
for i:=1 to 25 do begin
c[i]:=random(-17)+7;
write(c[i], ' ');
if c[i] > max then begin
max:=c[i];
k:=i;
end;
end;
writeln();
if k<25 then begin
for i:=k+1 to 25 do begin
write(i, ' ');
end;
end
else write('Самое большое число стоит на последнем месте.');
end.