Заменить нулями элементы массива между минимальными и максимальными, кроме них самих

@dеan · Регистрация: 15.11.2011

Author24 — интернет-сервис помощи студентам

Дан 1- мерный массив A(N), где N - заданное натуральное число.Массив получен методом генерирования случайных чисел. Заменить нулями элементы массива между минимальными и максимальными , кроме них самих. Распечатать полученный массив.

@Израдор · 11.12.2011, 21:54

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

Pascal

uses crt;
a:array[1..100] of integer;
min,max,q,z,i: integer;
begin
clrscr;
randomize;
min:=9999;
max:=1;
write('vvedite razmernost massiva: ');
readln(q);
write('введите до какого числа будет рандом: ');
readlb(z)
for i:=1 to q do
a[i]:=random(z);      {заполнели массив}
for i:=1 to q do
write(a[i]:3);         {вывели его на экран}
for i:=1 to q do begin
if a[i]>max then max:=a[i]; end; {нашли максимум}
for i:=1 to q do begin
if a[i]<min then min:=a[i]; end; {нашли минимум}
writeln ('max:',max); {вывели на экран max}
writeln ('min:',min);   {вывели на экран min}
for i:=min to max do   {обнулили все элементы между минимальным и махсимальным}
a[i]:=0;  
for i:=1 to q do
write(a[i]:3); {вывели новую обнулённую матрицу}
readln;
end.

@dеan 4 / 4 / 0 Регистрация: 15.11.2011 Сообщений: 46
		1
	Заменить нулями элементы массива между минимальными и максимальными, кроме них самих 11.12.2011, 21:15. Показов 1588. Ответов 1 Метки нет (Все метки) Дан 1- мерный массив A(N), где N - заданное натуральное число.Массив получен методом генерирования случайных чисел. Заменить нулями элементы массива между минимальными и максимальными , кроме них самих. Распечатать полученный массив. 0

	11.12.2011, 21:54

Опции темы

Заменить нулями элементы массива между минимальными и максимальными, кроме них самих

Решение