• 03 December 2013
    • Химия
    • Автор: Дианахитрова

    Найти наибольший среди элементов массива А(10), остальные обнулить


    • 03 December 2013
    • Ответ оставил:

     Program Z_n;
    var a:array[1..10] of integer;
    i,m:integer;
    Begin
    Randomize;
    Write('Исходный массив: ');
    m:=-1000;
    For i:=1 to 10 do begin
    a[i]:=Random(50);
    Write(a[i],' ');
    if a[i]>m then m:=a[i];
    end;
    writeln;
    Write('Массив после обработки: ');
    For i:=1 to 10 do begin
    if a[i]<>m then a[i]:=0;
    Write(a[i],' ');
    end;
    writeln;
    end.

    Оцените ответ

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету...

Последние и похожие вопросы