Меню сайта

Задача №50

Заменить все элементы массива стоящие до максимального нулями.

uses crt-

vari,size,num,max:integer-

a:array[1..10000]of integer-

begin-

ClrScr-

writeln(‘Введите размер массива’)-

readln(size)-

FOR i := 1 TO sizedo

begin

clrscr-

writeln(‘Введите элементы массива’)-

readln(a[i])-

end-

max := a[1]-

clrscr-

writeln(‘Введенный массив’)-

FOR i := 1 TO sizedo

begin

-writeln(a[i])-

-IF a[i] &gt- max THEN

-begin

-num := i-1-

-max:=a[i]-

-end

end-

FOR i := 1 TO numdo

begin

a[i] := 0-

end-

writeln(‘Сформированный массив’)-

FOR i := 1 TO sizedo

begin

writeln (a[i])-

end-

end.

Категория: Массивы | Дата: 10.12.12

Меню раздела
Блок