6. В массиве С из 25 вещественных элементов из диапазона [-10;7] вывести на экран номера тех элементов, которые находятся после максимального элемента. ПАСКАЛЬ.


СРОЧНО ПЖ МНЕ НАДО ЗАВТРА ЛАБУ СДАВАТЬ :С
03090d 3 месяца назад

Будет готово через часик

Ответ
5/5 (1 оценка)
1
pinguinbird 3 месяца назад
Светило науки - 276 ответов - 0 раз оказано помощи

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.

pinguinbird 3 месяца назад

ну ничего не поделать ) в другом повезёт :)

03090d 3 месяца назад

У меня 5 баллов просто не хватает до следующего звания

pinguinbird 3 месяца назад

оу, так это самую простую задачку можно решить за 3 класс ) их вон полно валяется. На программирование больше времени уходит, так что чтобы прокачаться легче быстрые задачки щёлкать :)

03090d 3 месяца назад

Ну я так сказать помогаю и сам тренируюсь в решении некоторых примеров

pinguinbird 3 месяца назад

дада, понимаю :)

Ответ
5/5 (1 оценка)
0
BobbyFresnel 3 месяца назад
Светило науки - 12 ответов - 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

yuliyagane 3 месяца назад

я учусь в 1 курсе, информатику в школе учитель не вёл, мы вот только начали изучать паскаль :)

pinguinbird 3 месяца назад

ну да, значит скорее всего PascalABC вам не подходит

zienalinovaamina 3 месяца назад

Двумерный массив<br /><br />Выбери верное описание элемента двумерного массива.<br /><br />с[11][5]<br /><br />с[9]<br /><br />с[2 8]<br /><br />с(0)(3)

zienalinovaamina 3 месяца назад

помогите

zienalinovaamina 3 месяца назад

пожалуйста