Массив в паскале

17.03.2010, 17:30. **Показов** 551. **Ответов** 4

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

Помогите составить прогу, которая формирует массив из 10 случайных чисел, каждое из которых* - целое число в промежутке от -3 до 15. В проге определяется значение наибольшего и наименьшего элемента и их номера.

@Антонн · 17.03.2010, 18:41

Pascal

program Project1;
uses
 var
    a:array[1..10]of integer;
    i,k,max,min:integer;
begin
k:=0;
randomize;
for i:=1 to 10 do
begin
a[i]:=random(15)-3;
 end;
for i:=1 to 10 do
 begin
write (a[i]:4);                      {заполняем и выводим массив}
end;
////////////////////////////////
for i:=1 to 10 do
begin
if a[i]>max then max:=a[i];
end;
for i:=1 to 10 do
begin
if a[i]=max then k:=i;
end;
writeln;
writeln (' max ',max);
writeln ('  nomer ',k);       {находим макс. элемент и выводим его номер}
/////////////////////////////
for i:=1 to 10 do
begin
if a[i]<min then min:=a[i];
end;
for i:=1 to 10 do
begin
if a[i]=min then k:=i;
end;
writeln;
writeln (' min ',min);
writeln ('  nomer ',k);    {находим мин. элемент и выводим его номер}
 
readln;
end.

17.03.2010, 22:45

Спасибо

@STGE · 17.03.2010, 22:52

Т.к. в задаче сказано от 0 до 15 то:

Pascal

1
2
3

begin
a[i]:=random(16)-3;
 end;

@Puporev · 18.03.2010, 07:03

Вообще-то сказано от -3 до 15.
Поэтому random(19)-3;

Trollface
		1
	Массив в паскале 17.03.2010, 17:30. Показов 551. Ответов 4 Метки нет (Все метки) Помогите составить прогу, которая формирует массив из 10 случайных чисел, каждое из которых* - целое число в промежутке от -3 до 15. В проге определяется значение наибольшего и наименьшего элемента и их номера.

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	18.03.2010, 07:03	5
	Вообще-то сказано от -3 до 15. Поэтому random(19)-3; 0

Опции темы