44.63K
Category: programmingprogramming

Обработка массива (Паскаль)

1.

Обработка массива
(Паскаль)

2.

var a:array [1..10] of integer;
i, sum: integer;
aver: real;
begin
randomize;
for i:=1 to 10 do
a[i]:=random (100);
sum:=0;
for i:=1 to 10 do
sum:=sum+a[i];
aver:=sum/10;
writeln (‘Среднее значение =’, aver);
writeln (‘Сумма=’, sum);
end.
Найти сумму и среднее
арифметическое массива,
содержащего случайные
числа от 0 до 100

3.

var a:array [1..10] of integer;
i, number: integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random (201)-100;
number:=0;
for i:=1 to 10 do
if a[i]<0 then number :=number +1;
writeln (‘Количество отрицательных=’, number);
end.
Найти количество
отрицательных значений в
массиве, содержащего
случайные числа от -100 по
100
Генерация случайных чисел в
диапазоне
[а;в)
Random (b-a)+a
[a,b]
Random (b-a+1)+a

4.

var a:array [1..10] of integer;
i, number: integer;
begin
writeln (‘Введите элементы массива’);
for i:=1 to 10 do
read (a[i]);
В массиве А[10] найти
количество элементов
кратных 5 и не кратным 10.
number:=0;
for i:=1 to 10 do
if (a[i] mod 5 = 0 ) and (a[i] mod 10 <> 0) then number :=number +1;
writeln (‘Количество =’, number);
end.
Проверка кратности
число mod делитель = 0

5.

var a:array [1..9] of integer;
i, max: integer;
begin
writeln (‘Введите элементы массива’);
for i:=1 to 9 do
read (a[i]);
max:=a[1];
k:=1;
for i:=2 to 9 do
if a[i] > max then begin max:=a[i]; k:=i end;
writeln (‘Наибольший элемент=’, max, ‘место=‘, k);
end.
Найти наибольший элемент в
массиве А(9). Выведите сам
элемент и его место. Если
таких элементов несколько, то
место первого элемента.

6.

var a:array [1..12] of integer;
i, min, max, k1, k2:integer;
begin
randomize;
for i:=1 to 12 do
a[i]:=random (100);
max:=a[1];
k1:=1;
min:=a[1];
k2:=1;
for i:=2 to 12 do
begin
if a[i] > max then begin max:=a[i]; k1:=i end;
if a[i] < min then begin min:=a[i]; k2:=i end;
end;
a[k1]:=min;
a[k2]:=max;
for i:=1 to 12 do
write (a[i],’ ‘);
end.
В сгенерированном массиве
A[12] поменять местами
наибольший и наименьший
элементы.
English     Русский Rules