Самостоятельная работа:
Вариант №1.
1. Дан
массив из 10 элементов. Найти сумму положительных элементов массива. (оценка3)
program SumPol;
var a: array
[1..10] of integer;
max,i:integer;
n: real;
begin
for i:=1 to 10
do readln(a[i]);
n:=0;
for i:=1 to 10 do
if a[i]>0 then n:=n+ a[i];
writeln ( n);
readln;
end.
2. Дан массив из
10 элементов. Найти номера всех отрицательных элементов. (оценка 4)
Program NomOt;
Var A: Array[1..10] Of Integer;
k, s, i: Integer;
Begin
Writeln (‘Формирование
значений элементов
массива A’);
For i:=1 To 10 Do readln(a[i]);
For i:=1 To 10
If A[i] <0 Then Write (‘i = ‘,
i);
Readln;
End.
3. Дан массив из
10 элементов. Если есть в данном массиве элемент, равный заданному числу, то
вывести номер этого элемента. (оценка 5)
Program Prim;
Var A: Array[1..10] Of Integer;
i: Integer;
P: real;
Begin
Writeln (‘Формирование
значений элементов
массива A’);
For i:=1 To 10 Do readln(a[i]);
P:=11;
For i:=1 To 10 do
If A[i] =P Then Write (‘i = ‘,
i);
Readln;
End.
Вариант №2.
1.
Дан
массив из 10 элементов. Найти количество отрицательных элементов. (оценка
3)
program Ot;
var a: array
[1..10] of integer;
n ,i:integer;
n: real;
begin
for i:=1 to 10
do readln(a[i]);
n:=0;
for i:=1 to 10 do
if a[i] < 0 then n:=n+1;
writeln ( n);
readln;
end.
2.
Дан
массив из 10 элементов. Найти максимальный элемент массива и его номер. (оценка
4)
Program
maxsimum;
var a:array
[1..10] of integer;
max,i: integer;
begin
Write
(‘wwedite elementi massiwa v stolbik’);
For
i:=1 to 10 do Read(a[i]);
max:=a[1];
for i:=2 to 10
do
if max<a[i]
then max:=a[i]; P:=i;
writeln (‘max= ’,
max);
write (‘Индекс = ’, P);
readln;
end.
3.
Дан
массив из 10 элементов. Найти сумму элементов, больших данного числа А. (оценка
5)
Program sum;
i: integer;
p,s: real;
begin
Write
(‘wwedite elementi massiwa v stolbik’);
For
i:=1 to 10 do Read(a[i]);
s:=0;
p:=5;
for i:=1 to 10
do
if a[i]>p
then s:=s+a[i];
writeln (‘s= ’, s);
readln;
end.
Вариант №3
1.
1. Дан массив
из 10 элементов. Найти минимальный элемент массива. (оценка 3)
Program min;
var a:array
[1..10] of integer;
min,i: integer;
begin
Write
(‘wwedite elementi massiwa cherez probel’);
For
i:=1 to 10 do Read(a[i]);
max:=a[1];
for i:=2 to 10
do
if min>a[i]
then min:=a[i];
write (‘Наименьший
элемент массива =’, min);
readln;
end.
2.
Дан
массив из 10 элементов. Отрицательные элементы массива возвести в квадрат. (оценка
4)
program Ot;
var a: array
[1..10] of integer;
i: integer;
n: real;
begin
for i:=1 to 10
do readln(a[i]);
n:=0 ;
for i:=1 to 10 do
if a[i]<0 then n:=a[i]*a[i];
writeln (‘ n= ’, n );
readln;
end.
3.
Дан
массив из 10 элементов. Найти сумму первых пяти элементов массива и их среднее
арифметическое значение. (оценка 5)
program Ot;
var a: array
[1..10] of integer;
i: integer;
s, b: real;
begin
for i:=1 to 10
do readln(a[i]);
s:=0 ;
for i:=1 to 5 do
s:=s+a[i]; b:=s/5;
writeln (‘ s= ’,
s );
write (‘ b= ’, b
);
readln;
end.
|
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.