Задачи по теме "Массивы" с решениями.

1 ЭТАП:

Используя генератор случайных чисел, заполнить массив размерностью 10 элементов числами  из интервала [-20,+20]. Вывести список элементов массива в одну строку с интервалом 4 пункта.

2 ЭТАП:

ВЫПОЛНИТЬ СЛЕДУЮЩИЕ ЗДАНИЯ:

1.    Найти сумму всех элементов массива

2.    Найти среднее арифметическое всех элементов массива.

3.    Найти произведение всех элементов массива.

4.    Подсчитать количество отрицательных элементов массива.

5.    Обнулить все отрицательные элементы массива.

6.    Все чётные элементы массива уменьшить вдвое и вывести новый массив на печать.

1 ЭТАП:

Используя генератор случайных чисел, заполнить массив размерностью 10 элементов числами  из интервала [-20,+20]. Вывести список элементов массива в одну строку с интервалом 4 пункта.

2 ЭТАП:

ВЫПОЛНИТЬ СЛЕДУЮЩИЕ ЗДАНИЯ:

1.    Найти сумму всех элементов массива

2.    Найти среднее арифметическое всех элементов массива.

3.    Найти произведение всех элементов массива.

4.    Подсчитать количество отрицательных элементов массива.

5.    Обнулить все отрицательные элементы массива.

6.    Все чётные элементы массива уменьшить вдвое и вывести новый массив на печать.

1 ЭТАП:

Используя генератор случайных чисел, заполнить массив размерностью 10 элементов числами  из интервала [-20,+20]. Вывести список элементов массива в одну строку с интервалом 4 пункта.

2 ЭТАП:

ВЫПОЛНИТЬ СЛЕДУЮЩИЕ ЗДАНИЯ:

1.    Найти сумму всех элементов массива

2.    Найти среднее арифметическое всех элементов массива.

3.    Найти произведение всех элементов массива.

4.    Подсчитать количество отрицательных элементов массива.

5.    Обнулить все отрицательные элементы массива.

6.    Все чётные элементы массива уменьшить вдвое и вывести новый массив на печать.

1 ЭТАП:

Используя генератор случайных чисел, заполнить массив размерностью 10 элементов числами  из интервала [-20,+20]. Вывести список элементов массива в одну строку с интервалом 4 пункта.

2 ЭТАП:

ВЫПОЛНИТЬ СЛЕДУЮЩИЕ ЗДАНИЯ:

1.    Найти сумму всех элементов массива

2.    Найти среднее арифметическое всех элементов массива.

3.    Найти произведение всех элементов массива.

4.    Подсчитать количество отрицательных элементов массива.

5.    Обнулить все отрицательные элементы массива.

6.    Все чётные элементы массива уменьшить вдвое и вывести новый массив на печать.

1 ЭТАП:

Используя генератор случайных чисел, заполнить массив размерностью 10 элементов числами  из интервала [-20,+20]. Вывести список элементов массива в одну строку с интервалом 4 пункта.

2 ЭТАП:

ВЫПОЛНИТЬ СЛЕДУЮЩИЕ ЗДАНИЯ:

1.    Найти сумму всех элементов массива

2.    Найти среднее арифметическое всех элементов массива.

3.    Найти произведение всех элементов массива.

4.    Подсчитать количество отрицательных элементов массива.

5.    Обнулить все отрицательные элементы массива.

6.    Все чётные элементы массива уменьшить вдвое и вывести новый массив на печать.

1 ЭТАП:

Используя генератор случайных чисел, заполнить массив размерностью 10 элементов числами  из интервала [-20,+20]. Вывести список элементов массива в одну строку с интервалом 4 пункта.

2 ЭТАП:

ВЫПОЛНИТЬ СЛЕДУЮЩИЕ ЗДАНИЯ:

1.    Найти сумму всех элементов массива

2.    Найти среднее арифметическое всех элементов массива.

3.    Найти произведение всех элементов массива.

4.    Подсчитать количество отрицательных элементов массива.

5.    Обнулить все отрицательные элементы массива.

6.    Все чётные элементы массива уменьшить вдвое и вывести новый массив на печать

 1) program massiv;

uses crt;

var a:array[1..10] of integer;

i:integer;

begin

clrscr;

randomize;

for i:=1 to 10 do

begin

a[i]:=-20 + random(41);

write(a[i]:6);

end;

end.

2) program massiv;

uses crt;

var a:array[1..10] of integer;

i,s:integer;

begin

clrscr;

randomize;

for i:=1 to 10 do

begin

a[i]:=-20 + random(41);

write(a[i]:6);

end;

s:=0;

 for i:=1 to 10 do

 s:=s+a[i];

 writeln;

 writeln('s= ',s)

end.

3)  program massiv;

uses crt;

var a:array[1..10] of integer;

i,s:integer;

sa:real;

begin

clrscr;

randomize;

for i:=1 to 10 do

begin

a[i]:=-20 + random(41);

write(a[i]:6);

end;

s:=0;

 for i:=1 to 10 do

 s:=s+a[i];

 sa:=s/10;

 writeln;

 writeln('sa= ',sa)

end.

4) program massiv;

uses crt;

var a:array[1..10] of integer;

i:integer;

p:real;

begin

clrscr;

randomize;

for i:=1 to 10 do

begin

a[i]:=-20 + random(41);

write(a[i]:6);

end;

p:=1;

 for i:=1 to 10 do

 p:=p*a[i];

 writeln;

 writeln('p= ',p)

end.

5) program massiv;

uses crt;

var a:array[1..10] of integer;

i,k:integer;

begin

clrscr;

randomize;

for i:=1 to 10 do

begin

a[i]:=-20 + random(41);

write(a[i]:6);

end;

k:=0;

 for i:=1 to 10 do

 if a[i]<0 then k:=k+1;

 writeln;

 writeln('k= ',k)

end.

6) program massiv;

uses crt;

var a:array[1..10] of integer;

i:integer;

begin

clrscr;

randomize;

for i:=1 to 10 do

begin

a[i]:=-20 + random(41);

write(a[i]:6);

end;

writeln;

 for i:=1 to 10 do

 begin

 if a[i]<0 then a[i]:=0;

 write(a[i]:6)

 end;

end.

7) program massiv;

uses crt;

var a:array[1..10] of integer;

b:array[1..10] of real;

i:integer;

begin

clrscr;

randomize;

for i:=1 to 10 do

begin

a[i]:=-20 + random(41);

write(a[i]:6);

end;

writeln;

 for i:=1 to 10 do

 begin

 if a[i] mod 2=0 then b[i]:=a[i]/2 else b[i]:=a[i];

 writeln(b[i]);

 end;

end.

Краткое описание документа:

Задачи на одномерные массивы:

1 ЭТАП:

Используя генератор случайных чисел, заполнить массив размерностью 10 элементов числами  из интервала [-20,+20]. Вывести список элементов массива в одну строку с интервалом 4 пункта.

2 ЭТАП:

ВЫПОЛНИТЬ СЛЕДУЮЩИЕ ЗДАНИЯ:

1.    Найти сумму всех элементов массива

2.    Найти среднее арифметическое всех элементов массива.

3.    Найти произведение всех элементов массива.

4.    Подсчитать количество отрицательных элементов массива.

5.    Обнулить все отрицательные элементы массива.

6.    Все чётные элементы массива уменьшить вдвое и вывести новый массив на печать.

С решениями.