Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 16.04.2013
Сообщений: 13
1

Работа с массивами: поиск элементов с заданными свойствами

18.04.2013, 16:50. Показов 742. Ответов 3
Метки нет (Все метки)

СРОЧНО!!!
Дан цело численный массив .Найти:
КАЖДУЮ ОТДЕЛЬНО!!!! Написать полностью в месте с описанием 8 класс
а) удвоенную сумму положительных элементов
б)Кол-во элементов массива , значения которых больше заданного числа А(А-С клавиатуры)
в)Кол-во тех элементов,значения которых положительны и не превосходят данного числа А (А-С клавиатуры)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.04.2013, 16:50
Ответы с готовыми решениями:

Работа с массивами. Поиск элементов с заданными свойствами
Задан массив из пяти строк и шести столбцов 1)Сформировать массив из первых попавшихся...

Массив. Поиск элементов с заданными свойствами
В массиве хранятся элементы, соответствующие росту учеников класса. Найти: -средний рост учеников...

Матрица: поиск элементов с заданными свойствами
Задана матрица А(n,m). Для выполнения действий над элементами матрицы в соответствии с данными,...

Массив: поиск элементов с заданными свойствами
Здравствуйте, нужна ваша помощь в пяти различных заданиях по турбо паскалю, буду премного...

3
13074 / 5859 / 1706
Регистрация: 19.09.2009
Сообщений: 8,807
18.04.2013, 17:12 2
а)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const
  M = 10;
var
  Arr : array[1..M] of Integer;
  i, Sum : Integer;
begin
  Randomize;
  Writeln('Исходный массив:');
  Sum := 0;
  for i := 1 to M do begin
    Arr[i] := Random(6) - 2; {-2..3.}
    if Arr[i] > 0 then Sum := Sum + Arr[i];
    Write(Arr[i], ' ');
  end;
  Writeln;
  
  Writeln('Удвоенная сумма положительных элементов: ', Sum * 2);
  Readln;
end.
Добавлено через 3 минуты
б)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const
  M = 10;
var
  Arr : array[1..M] of Integer;
  i, A, Cnt : Integer;
begin
  Randomize;
  Writeln('Исходный массив:');
  for i := 1 to M do begin
    Arr[i] := Random(6) - 2; {-2..3.}
    Write(Arr[i], ' ');
  end;
  Writeln;
  
  Write('Задайте число А: ');
  Readln(A);
  Cnt := 0;
  for i := 1 to M do
    if Arr[i] > A then Inc(Cnt); {Inc(Cnt); - это тоже самое, что и: Cnt := Cnt + 1;}
  
  Writeln('Количество элементов, которые больше числа А: ', Cnt);
  Readln;
end.
Добавлено через 2 минуты
в)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const
  M = 10;
var
  Arr : array[1..M] of Integer;
  i, A, Cnt : Integer;
begin
  Randomize;
  Writeln('Исходный массив:');
  for i := 1 to M do begin
    Arr[i] := Random(6) - 2; {-2..3.}
    Write(Arr[i], ' ');
  end;
  Writeln;
  
  Write('Задайте число А: ');
  Readln(A);
  Cnt := 0;
  for i := 1 to M do
    if (Arr[i] > 0) and (Arr[i] <= A) then Inc(Cnt); {Inc(Cnt); - это тоже самое, что и: Cnt := Cnt + 1;}
  
  Writeln('Количество элементов, которые положительны и не больше, чем А: ', Cnt);
  Readln;
end.
Добавлено через 1 минуту
Во все коды добавил Writeln; после распечатки массива.

Добавлено через 4 минуты
Ещё оформление комментов заменил с "//" на "{}".
0
0 / 0 / 0
Регистрация: 16.04.2013
Сообщений: 13
18.04.2013, 19:11  [ТС] 3
Mawrat, Что такое Arr и как его заменить?

Добавлено через 1 минуту
Mawrat, Просто я в 8 классе и мне этого не понять.

Добавлено через 1 час 37 минут
Pascal
1
asdsddad[[PROLOG][PYTHON]asdadad[/PYTHON][/PROLOG]ASIC][BASIC][BASIC][BASIC][BASIC][OBJC][PLSQL][QBASIC][RUBY][RAILS][HTML5][JAVA][QBASIC][RUBY][SUP][SUB][SUB][SUP][SUP][SUP][FRIGHT][FLEFT][I][/I][/FLEFT][/FRIGHT][/SUP][/SUP][/SUP][/SUB][/SUB][/SUP][/RUBY][/QBASIC][/JAVA][/HTML5][/RAILS][/RUBY][/QBASIC][/PLSQL][/OBJC][/BASIC][/BASIC][/BASIC][/BASIC][/BASIC]
0
13074 / 5859 / 1706
Регистрация: 19.09.2009
Сообщений: 8,807
18.04.2013, 19:43 4
Цитата Сообщение от BaHTyC Посмотреть сообщение
Mawrat, Что такое Arr и как его заменить?
Arr - это и есть массив. Все 3 задачи по массивам.

Добавлено через 1 минуту
Если записано вот так:
Pascal
1
2
3
4
const
  M = 10;
var
  Arr : array[1..M] of Integer;
Это означает, что объявлена переменная Arr, которая является массивом вот такого типа: array[1..M] of Integer.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.04.2013, 19:43

Массив. Поиск элементов с заданными свойствами, замена
Помогите пожалуйста Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с...

Одномерный массив: поиск элементов с заданными свойствами
помогите решить задание 4.Одномерные массивы. и задание 5.двумерные массивы. пожалуйста очень...

Одномерные массивы: поиск элементов с заданными свойствами
Исходный массив должен быть выведен на экран. Все преобразования производить с исходным массивом....

Одномерные массивы. Поиск элементов с заданными свойствами
Прошу, помогите. Исходный массив должен быть выведен на экран. Все преобразования производить с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.