Меню сайта

Задача №51

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

uses crt-

vari,size,min,num:integer-

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

begin-

clrscr-

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

readln(size)-

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

FOR i := 1 TO sizedo

begin

readln(a[i])-

end-

min := a[1]-

FOR i := 2 TO sizedo

begin

IF a[i] &lt- minTHEN

begin

num := i +1-min:=a[i]-

end-

end-

FOR i := num TOsize do

begin

a[i] := 0-

end-

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

FOR i := 1 TO sizedo

begin

writeln(a[i])-

end-

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

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