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

Выберите документ из архива для просмотра:

Program1.pas Program2.pas Program3.pas Program4.pas Program5.pas Program6.pas Program7.pas задания.doc все_решения.doc ABC.ini

Выбранный для просмотра документ задания.doc

1 ЭТАП:

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

2 ЭТАП:

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

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

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

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

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

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

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

1 ЭТАП:

2 ЭТАП:

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

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

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

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

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

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

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

1 ЭТАП:

2 ЭТАП:

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

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

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

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

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

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

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

1 ЭТАП:

2 ЭТАП:

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

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

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

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

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

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

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

1 ЭТАП:

2 ЭТАП:

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

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

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

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

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

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

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

1 ЭТАП:

2 ЭТАП:

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

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

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

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

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

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

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

Скачать материал

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

Как учитель может зарабатывать на Инфоуроке?

Выбранный для просмотра документ все_решения.doc

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 ЭТАП:

2 ЭТАП:

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

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

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

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

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

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

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

С решениями.

Скачать материал

Найдите материал к любому уроку, указав свой предмет (категорию), класс, учебник и тему:

6 660 666 материалов в базе

Найти материалы

Скачать материал

Другие материалы

docx

Подборка GOOGLE-тестов по информатике:

Учебник: «Информатика», Босова Л.Л., Босова А.Ю.
Тема: 4.1.2. Что такое локальная компьютерная сеть

Рейтинг: 1 из 5

02.10.2020
3711
70

zip

Видеоматериал к ВКР "200 лет городу Грозный"

Учебник: «Информатика. Углубленный уровень (в2 частях)», Поляков К.Ю., Еремин Е.А.

02.10.2020
318
0

«Информатика. Углубленный уровень (в2 частях)», Поляков К.Ю., Еремин Е.А.

docx

ВКР на тему "Создание видеоролика -200 лет городу Грозный"

Учебник: «Информатика. Углубленный уровень (в2 частях)», Поляков К.Ю., Еремин Е.А.

Рейтинг: 1 из 5

02.10.2020
3392
80

rar

Сервисы для помощи при дистанционном обучении "Информатика"

Учебник: «Информатика», Босова Л.Л., Босова А.Ю.
Тема: Глава 1. Математические основы информатики

02.10.2020
422
8

docx

Рабочая программа по информатике для 7 класса (1 час в неделю) по ФГОС

Учебник: «Информатика», Босова Л.Л., Босова А.Ю.

Рейтинг: 5 из 5

02.10.2020
305
9

docx

КТП по дисциплине "ЕН.02 Информатика и ИКТ в профессиональной деятельности"

02.10.2020
364
4

docx

Информационные ресурсы общества. Образовательные информационные ресурсы

Учебник: «Информатика. Базовый уровень», Босова Л.Л., Босова А.Ю.
Тема: § 1. Информация. Информационная грамотность и информационная культура

02.10.2020
5587
27

«Информатика. Базовый уровень», Босова Л.Л., Босова А.Ю.

docx

Тест по информатике на тему "Право в области информации"

02.10.2020
2565
11

Вам будут интересны эти курсы:

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.

Скачать материал
- 04.01.2015 848
- RAR 12.9 кбайт
- Оцените материал:
Настоящий материал опубликован пользователем Ягодова Ольга Васильевна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт

Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материал
Автор материала

Ягодова Ольга Васильевна
- На сайте: 8 лет и 9 месяцев
- Подписчики: 2
- Всего просмотров: 49422
- Всего материалов: 10