Автор: krew
Дата сообщения: 14.04.2013 21:26
Вот тут еще девушке накинули задачек, помогите кто сможет, сам я в программировании не бум-бум.
[more=Примеры задач]1. Сформировать и вывести на экран последовательность из n элементов, заданных датчиком случайных чисел на интервале [-23, 34].
Program posled;
Var a: array[1..100] of integer;
i, n: integer;
Begin
Write ('Сколько элементов? '); Readln (n);
For i=1 to n do
begin
a[i]:=Random(58)-23;
end;
End.
2. Найти произведение элементов одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры.
Program proisveden;
Var a: array[1..100] of integer;
i, n, p: integer;
Begin
Write ('Сколько элементов? '); Readln (n);
p:=1;
For i=1 to n do
begin
write ('введите число'); readln (a[i]);
p:=p*a[i];
end;
writeln('произведение: ',p);
End.
3. Найти сумму элеметов одномерного массива. Размер произвольный. Элементы вводятся с клавиатуры.
Program summa;
Var a: array[1..100] of real;
i, n:integer;
s: real;
Begin
Write ('n='); Readln (n);
s:=0;
For i:=1 to n do
begin
write ('введите число'); readln (a[i]);
s:=s+a[i];
end;
writeln('сумма элементов равна ',s);
End.
4. Задан массив A, состоящий из n чисел. Найти средне арифметическое его элементов. Элементы вводятся с клавиатуры.
Program srednee;
Var a: array[1..100] of real;
i, n: integer;
s,sred:real;
Begin
Write ('n='); Readln (n);
s:=0;
For i:=1 to n do
begin
write ('введите число'); readln (a[i]);
s:=s+a[i];
end;
sred:=s/n;
writeln('среднее арифметическое элементов: ',s);
End.
5. Найти сумму элементов массива с четными номерами, содержащего N элементов. Элементы вводятся с клавиатуры.
Program sumshet;
Var a: array[1..100] of real;
i, n: integer;
s,sred: real;
Begin
Write ('n='); Readln (n);
s:=0;
For i:=1 to n do
begin
write ('введите число'); readln (a[i]);
if i mod 2 = 0 then s:=s+a[i];
end;
writeln('сумма элементов с четными номерами: ',s);
End.
6. Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-19, 26] (размер произвольный). Найти произведение элементов с нечетными номерами.
Program proisvednechet;
Var a: array[1..100] of integer;
i, n, p: integer;
Begin
Write ('Сколько элементов? '); Readln (n);
P:=1;
For i=1 to n do
begin
a[i]:=Random(46)-19;
writeln (a[i]),'');
if i mod 2 <> 0 then P=P*a[i];
end;
Writeln('Произведение элементов с нечетными номерами:',P);
End.
7. Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-56, 47] (размер произвольный). Найти произведение элементов с нечетными номерами, которые превосходят некоторое число t.
Program proisvedchetbolt;
Var a: array[1..100] of integer;
i, n, p, t: integer;
Begin
Write ('Сколько элементов? '); Readln (n);
P:=1 to n do
begin
a[i]:=Random(104)-56; writeln (a[i],'');
if (i mod 2 =0) and (a[i]>t) then P=P*a[i];
end;
Writeln('Произведение элементов с четными номерами, превосходящими число t:',P);
End.
8. Найти наименьший элемент одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры.
Program minim;
Var a: array[1..100] of real;
i, n: integer;
min: real;
Begin
Write ('n='); Readln (n);
For i:=1 to n do
begn
write('a[',i,']='); readln (a[i]);
end;
min:=a[1];
For i:=2 to n do
If a[i]< min then min:=a[i];
Writeln('наименьшее число: ',min);
End.
9. Найти номер наименьшего элемента в массиве, заданного датчиком случайных чисел на интервале [-20, 25]. Размер произвольный.
Program numberminim;
Var a: array[1..100] of integer;
i, n, num, min: integer;
Begin
Write ('n='); Readln (n);
For i=1 to n do
begin
a[i]:= Random(46)-20;
writeln (a[i]);
end;
min:=a[1];
num:=1;
For i:=2 to n do
If a[i]< min then
begin
min:=a[i];
num:=i;
end;
Writeln('номер наименьшего элемента: ',num);
End.
10. В заданном одномерном массиве, состоящем из n чисел, подсчитать количество нулей.
Program kolv0
Var a: array[1..100] of integer;
i, n, k: integer;
Begin
Write ('n='); Readln (n);
For i:=1 to n do
begin
Write('a[',i,']='); readln (a[i]);
if a[i]=0 then k:=k+1;
end;
Writeln('количество 0 равно ',k);
end.
11. В заданном одномерном массиве, состоящем из n чисел, подсчитать количество четных элементов.
Program kolvcchet
Var a: array[1..100] of integer;
i, n, k: integer;
Begin
Write ('n='); Readln (n);
For i:=1 to n do
begin
Write('a[',i,']='); readln (a[i]);
if a[i] mod 2=0 then k:=k+1;
end;
Writeln('количество четных элементов ',k);
end.
12. Найдите среднее арифметическое элементов массива, состоящего из 10 чисел, которые превышают по величине число C. Элементы вводятся с клавиатуры.
Program sredarifment;
Var a: array[1..10] of real;
i, k: integer;
C, S, sred: real;
Begin
For i:=1 to 10 do
begin
write ('a[',i,']='); readln (a[i]);
end;
write('введите C: '); readln (C);
For i:=1 to 10 do
begin
If a[i]>C then
begin S=S+a[i]; K=K+1; end;
end;
sred=S/k;
Writeln('среднее арифметическое чисел, превосходящих ',C,' равно ',sred);
End.
13. Найти произведение элементов целочисленного одномерного массива с четными номерами, состоящего из n элементов. Элементы вводятся с клавиатуры.
Program proizved_chet;
Var a: array [1..100] of integer;
i, n, p: integer;
Begin
p:=1;
write ('n='); readln (n);
for i:=1 to n do
begin
write ('a[',i,']='); readln (a[i]);
if i mod 2=0 then p:=p*a[i];
end;
Writeln ('произведение элементов массива с четными номерами равно ',p);
End.
14. Массив A вводится с клавиатуры. Сформировать новый массив B, состоящий из четных элементов массива A. Элементы вводятся с клавиатуры. Размер n.
Program newmasiv;
Var a: array[1..100] of integer;
b: array[1..100] of integer;
n, i, k: integer;
Begin
kol:=0, k:=0;
write ('n='); readln (n);
For i:=1 to n do
begin
write('a[',i,']='); readln (a[i]);
if a[i] mod 2=0 then
begin
k:=k+1; b[k]:=a[i]; kol:=kol+1;
end;
if kol=0 then writeln('четных элементов нет') else
for k:=1 to kol do write('b[',k,']=',b[k]);
end.[/more]
[more=Задачи]1. Массив A вводится с клавиатуры. Найти сумму его элементов. Размер произвольный.
2. Найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале [-28, 27]. Размер произвольный.
3. Массив A вводится с клавиатуры. Найти среднее арифметическое его элементов с нечетными номерами. Размер произвольный.
4. Массив A вводится с клавиатуры. найти сумму его элементов с четными номерами, произведение отрицательных элементов, количество нечетных элементов. Размер произвольный.
5. Найти наибольший элемент и его номер в последовательности, элементы которой вводятся с клавиатуры. Размер произвольный.
6. Найти среднее арифметическое элементов последовательности, превосходящих некоторое число C. Массив задан датчиком случайных чисел на интервале [-44, 35]. Размер произвольный. Значение C вводится с экрана.
7. Массив A вводится с клавиатуры. Вывести только нечетные элементы. Размер произвольный.
8. Упорядочить данную последовательность по убыванию. Элементы вводятся с клавиатуры. Размер произвольный.
9. Упорядочить данную последовательность по убыванию. Массив задан датчиком случайных чисел на интервале [54, 33]. Размер произвольный.
10. Массив A вводится с клавиатуры. Сформировать новый массив B, состоящий из положительных элементов массива A. Размер произвольный размер.
11. Массив задан датчиком случайных чисел на интервале [-31, 45]. Сформировать новый массив B, состоящий из нечетных элементов массива A. Размер произвольный.
12. Массив A вводится с клавиатуры. Сформировать новый массив B, состоящий из положительных элементов массива A и найти в нем наибольший элемент. Размер произвольный.
13. Массив задан датчиком случайных чисел на интервале [-37, 66]. Найти наименьший нечетный элемент. Размер произвольный.[/more]
