массивы паскаль



Массивы в pascal

Автор Frans задал вопрос в разделе Другие языки и технологии

Pascal одномерные массивы. и получил лучший ответ

Ответ от Плутарх из Херонеи[гуру]
program PROG5_2;
const
N = 10;
var
a : array [1..N] of integer;
i, i1, i2 : integer;
imin, imax : integer;
d, c, s : integer;
begin
{Заполнение массива а случайными числами}
randomize;
for i:=1 to N do
a[i]:=random(100);
{Вывод массива а на экран}
writeln('Исходный массив: ');
for i:=1 to N do
write(a[i]:6);
writeln;
{Нахождение индексов наибольшего и наименьшего эемаентов
массива}
imin:=1; {Индекс наименьшего элемента}
imax:=1; {Индекс наибольшего элемента}
for i:=2 to N do begin
if a[i] < a[imin] then
imin :=i;
if a[i] > a[imax] then
imax := i;
end;
{Вывод ответа}
writeln('Наименьший элемент a[',imin,']=',a[imin]);
writeln('Наибольший элемент a[',imax,']=',a[imax]);
{Подсчет количества и суммы чисел между минимальным и максимальным значениями}
c:=0; {Количество}
s:=0; {Сумма}
if imin > imax then begin
i1:=imax;
i2:=imin;
end else begin
i1:=imin;
i2:=imax;
end;
write('Cумма начиная с a[',i1,'] = ',a[i1],' до a[',i2,']=',a[i2],': ');
for i :=i1 to i2 do begin
inc(c);
inc(s,a[i]);
write(a[i],' + ');
end;
writeln(' = ',s);
writeln('Количество: ',c);

end.

Ответ от Danakt Frost[гуру]
const
N=10;
var
a:array [1..N] of integer;
i:integer;
min, max, pmin, pmax, sum, temp:integer;
begin
randomize;
write('Массив: ');
for i:=1 to N do begin
a[i]:=random(100);
write(a[i]);
if i<>N then write(', ')
else writeln();
end;

min:=a[1];max:=a[1];
for i:=1 to N do
begin
if min>a[i] then
begin
pmin:=i;min:=a[i];
end;
if max<a[i] then
begin
pmax:=i;max:=a[i];
end;
end;
writeln('Наименьшее число: ', min);
writeln('Наибольше число: ', max);
if pmin>pmax then
begin
temp:=pmax;pmax:=pmin;pmin:=temp;
end;
for i:=pmin+1 to pmax-1 do sum:=sum+a[i];
writeln('Сумма промежутка: ', sum);
end.

Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Pascal одномерные массивы.

Pascal. Двумерный массив
Доброго времени суток.

>> var
>> n,i: integer;
>> mas: array
подробнее...
спросили в Pavel Prusskiy
Народ, как задается двумерный массив в паскале??
Массивы, положение элементов в которых описывается двумя индексами, называются двумерными.подробнее...

Как задать двумерный динамический массив в Паскале?
Двумерные массивы Паскаля – матрицы
Двумерный массив в Паскале трактуется как одномерный
подробнее...
спросили в String h
Сортировка одномерного массива
Доброго времени суток.

Странная какая-то сортировака у вас. Вот пример сортировки пузырьком.
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
спросили в Паскаль
Паскаль - массив нужно сделать динамическим!!
Доброго времени суток.

Вот примеры организации динамических массивов. Остальное сами.подробнее...
спросили в Free Pascal Power trio
паскаль
var i,n:integer; p:real; a,b:array[1..100]of real;
begin
write('Введите размер массивов:
подробнее...

Объясните что выполняют операторы div mod. div mod что они делают и как.
Итак что такое целочисленное деление вообще? В математике целочисленным делением называют такое
подробнее...

Как в Pascal задать переменной несколько определенных значений ?
Данную переменную надо объявить массивом var c: ARRAY [1..4] OF integer=(5,3,6,2); и обращаться по
подробнее...

Паскаль
Создать собственный тип:

type mas = array [0..20] of String;
var a: mas;подробнее...

Помогите мне решить задачу в Pascal ABC.
думаю так можно, но не уверен________
const n=30;
var
a: array [1..n] of integer;подробнее...
спросили в Интернет ABC
где скачать Pascal ABC ??
Система Pascal ABC предназначена для обучения программированию на языке Паскаль и ориентирована на
подробнее...
спросили в Паскаль
помггите пожалуйста найти треугольник паскаля на Turbo Pascal
Доброго времени суток.

Вам найти или программку? Для найти в поисковике набираети
подробнее...
 

Ответить на вопрос:

Имя*

E-mail:*

Текст ответа:*
Проверочный код(введите 22):*