close

Вход

Забыли?

вход по аккаунту

код для вставкиСкачать
Задание 1. Набрать программу, запустить на выполнение и записать полученные
результаты в тетрадь.
1.Вычисление суммы элементов массива
program n_2;
var s, i: integer;
a: arrav[1...10] of integer;
begin
s:=0;
for i:=1 to 10 do a[i]:=random(50);
for i:=1 to 10 do write (a[i],` `);
for i:=1 to 10 do s:=s+a[i];
writeln ('s=', s);
end.
Ответить письменно на вопросы:
1. Выпишите фрагмент программы, в котором описывается массив.
2. Выпишите фрагмент программы, который отвечает за вывод массива.
Задание 2. Набрать программу, запустить на выполнение и записать полученные
результаты в тетрадь.
Программа поиска наибольшего элемента в массиве
program n_3;
var s, i, imax: integer;
a:arrav[1...10] of integer;
begin
s:=0;
for i:=1 to 10 do a[i]:=random(50);
for i:=1 to 10 do write (a[i],` `);
imax:=1
for i:=2 to 10 do
if a[i]>a[imax] then imax:=i;
write ('Наибольший элемент a[',imax,']=', a[imax])
end.
Ответить письменно на вопросы:
1. Каким способом в этой программе заполняется массив (выписать нужный
фрагмент программы)
2. Выпишите фрагмент программы, в котором описывается массив.
Задание 3. Набрать программу, запустить на выполнение и записать полученные
результаты в тетрадь.
Поиск элемента, равного 50
program n_4;
var n, i: integer;
a:arrav[1...10] of integer;
begin
for i:=1 to 10 do a[i]:=random(60);
for i:=1 to 10 do write (a[i],` `);
n:=0;
for i:=1 to 10 do
if a[i]=50 then n:=i;
if n=0 then write('Нет') else write (i)
end.
Ответить письменно на вопросы:
1. Какая задача решается в этой программе?
2. С помощью какого оператора происходит поиск элемента , равного 50
(выпишите этот оператор)
Задание 4. Набрать программу, запустить на выполнение и записать полученные
результаты в тетрадь.
4. Подсчет количества элементов
program n_6;
var k, i: integer;
a:arrav[1...10] of integer;
begin
for i:=1 to 10 do a[i]:=random(60);
for i:=1 to 10 do write (a[i],` `);
k:=0;
for i:=1 to 10 do
if a[i]>50 then k:=k+1;
write('k=', k)
end.
Ответить письменно на вопросы:
1. Каким способом в этой программе заполняется массив (выписать нужный
фрагмент программы)
2. С помощью какого оператора происходит поиск элемента , равного 50
(выпишите этот оператор)
Задание 5. Набрать программу, запустить на выполнение и записать полученные
результаты в тетрадь.
Сумма значений элементов, удовлетворяющих условию
program n_7;
var s, i: integer;
a:arrav[1...10] of integer;
begin
for i:=1 to 10 do a[i]:=random(60);
for i:=1 to 10 do write (a[i],` `);
s:=0;
for i:=1 to 10 do
if a[i]>10 and (a[i]<30 then s:=s+a[i];
write(‘s=', s)
end.
Ответить письменно на вопросы:
1. Каким способом в этой программе заполняется массив (выписать нужный
фрагмент программы)
2. Выпишите фрагмент программы, в котором описывается массив.
Задание 6. Набрать программу, запустить на выполнение и записать полученные
результаты в тетрадь.
Сортировка массива
program n_8;
var n, i, j, x, imax: integer;
a:arrav[1...10] of integer;
begin
for i:=1 to 10 do read (a[i]);
for i:=1 to 10 do write (a[i],` `);
for i:=1 to 9 do
begin
imax:=i;
for j:=i+1 to 10 do if a[j]>a[imax] then imax:=j;
x:=a[i];
a[i]:=a[imax];
a[imax]:=x
end;
for i:=1 to 10 do write (a[i],` `);
end;
Ответить письменно на вопросы:
1. Как осуществляется сортировка элементов массива по убыванию
выбором(пояснить).
2. Каким способом в этой программе заполняется массив (выписать нужный
фрагмент программы)
1/--страниц
Пожаловаться на содержимое документа