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

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

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 675 341 материал в базе

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

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

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

docx

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

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

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

02.10.2020
3763
71

zip

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

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

02.10.2020
321
0

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

docx

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

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

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

02.10.2020
3454
80

rar

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

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

02.10.2020
424
8

docx

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

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

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

02.10.2020
307
9

docx

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

02.10.2020
370
4

docx

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

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

02.10.2020
5726
27

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

docx

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

02.10.2020
2596
12

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

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

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

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

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

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