Решение задач на языке Паскаль по теме "Одномерные массивы "

Решение задач

ОДНОМЕРНЫЕ

МАССИВЫ

Описание массива

Общий вид описания массива:

var : array [ ..

] of ;

Тип элементов массива

var s : array [1..20] of integer;

Минимальное значение индекса

Значение 1-го элемента массива

Максимальное значение индекса

const v : array [1..4] of integer = (8, 7, 3, 5);

Способы заполнения массива

1 . Ввод каждого значения с клавиатуры:

for i :=1 to 5 do read (a[i]);

2 . С помощью оператора присваивания (по формуле):

for i :=1 to 5 do a[i]:=i;

3 . С помощью оператора присваивания (случайными числами):

randomize ;

for i:=1 to 5 do a[i]:=random(50);

№ 1. Составить программу, которая вычисляет среднюю скорость катера по результатам измерения в 6 пунктах. (задаются в массиве констант 87км/ч, 68 км/ч, 82,7км/ч 91 км/ч, 86 км/ч, 87,5 км/ч)

Описание массива

program m16;

var i:integer; n, s:real;

const a:array[1..6] of real=(87, 68, 82.7, 91, 86, 87.5);

begin

s:=0;

for i:=1 to 6 do s:=s+a[i];

n:=s/6;

write('Средняя скорость',n,'км/ч');

end.

Заполнения массива

№ 2. С клавиатуры вводится массив из m чисел. Найти сумму элементов массива.

program massiv_16_2;

var a:array [1..50] of integer;

m,s,i:integer;

begin

write('Введите количество элементов массива m=');

read(m);

s:=0;

for i:=1 to m do begin

write('введите значение элемента',' ',i,':');

readln(a[i]);

s:=s+a[i]; end;

write('сумма элементов массива равна s=',s); end.

Описание массива

Заполнение

массива

0 then p:=p+a[i]; end; write('Сумма равна = ', p); end. Описание массива Заполнение массива Вывод элементов массива " width="640"

№ 3. Сформировать массив из n случайных чисел на промежутке[-60;60]. Найти сумму чисел больших нуля.

program m_4;

var p,i:integer;

a:array[0..5] of integer;

begin

for i:=0 to 5 do a[i]:=random(122)-60;

for i:=1 to 5 do write (a[i],' ');

for i:=0 to 5 do begin

if a[i] 0 then p:=p+a[i]; end;

write('Сумма равна = ', p); end.

Описание массива

Заполнение

массива

Вывод элементов

массива