Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика" 
Учительский фестиваль педагогических идей 
- Опуликовал: Волонсевич Я.
- |
- Коментариев: 0
- |
- Просмотров: 683
Пример 1. Дан массив из N элементов. В группе из N человек известен рост каждого. Написать программу, определяющую, сколько человек из этой группы имеют рост выше, чем средний рост группы.
var
a:array[1..100] of real;
i,n,
k:integer;
sum,
sr:real;
begin
read(n);
for i:=1 to n do
read(a[i]);
sum :=0;
for i :=1 to n do
sum:=sum+a[i];
sr:=sum/n;
writeln(' sr=',sr);
k:=0;
for i:=1 to n do
if a[i]>sr then
k:=k+1;
write('k=',k);
end.
Пример 2. Дана последовательность из N целых чисел. Вывести элементы последовательности в обратном порядке.
var
a:array[1..100] of integer;
i,n:integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do
write(a[i],' ');
end.
Пример 3. Даны натуральные числа . Заполнить элементов массива числами:А,А+В,А+2*В, А+3*В+... Вывести получившийся массив на экран.
var
d:array[1..100] of integer;
a,b,i,n:integer;
begin
read(a,b,n);
d[1]:=a;
for i:=2 to n do
d[i]:=d[i-1]+b;
for i:=1 to n do
write(d[i],' ');
end.
var
a:array[1..100] of real;
i,n,
k:integer;
sum,
sr:real;
begin
read(n);
for i:=1 to n do
read(a[i]);
sum :=0;
for i :=1 to n do
sum:=sum+a[i];
sr:=sum/n;
writeln(' sr=',sr);
k:=0;
for i:=1 to n do
if a[i]>sr then
k:=k+1;
write('k=',k);
end.
Пример 2. Дана последовательность из N целых чисел. Вывести элементы последовательности в обратном порядке.
var
a:array[1..100] of integer;
i,n:integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do
write(a[i],' ');
end.
Пример 3. Даны натуральные числа . Заполнить элементов массива числами:А,А+В,А+2*В, А+3*В+... Вывести получившийся массив на экран.
var
d:array[1..100] of integer;
a,b,i,n:integer;
begin
read(a,b,n);
d[1]:=a;
for i:=2 to n do
d[i]:=d[i-1]+b;
for i:=1 to n do
write(d[i],' ');
end.
