moroh
Опубликовано 6 лет назад по предмету Информатика от moroh


Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и найти в нем два максимальных элемента и их номера. Пример: Исходный массив: .. максимальные a[4]=10, a[7]=8

  1. Ответ
    Ответ дан slavan

    program pr;label l;var mas:array[1..10] of integer;i,k,n,b,sum:integer;beginrandomize;for i:=1 to 10 do mas[i]:=round((10-(-10))*random+(-10));l:for i:=1 to 10 dobeginif n<mas[i] thenbeginn:=mas[i];k:=i;end;end;writeln ('a[',k,']=',n);mas[k]:=-11;n:=0;k:=0;if b=0 thenbeginb:=1;goto l;end;readln;end.

    Программу проверил все работает

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц