Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
6 / 6 / 5
Регистрация: 19.11.2012
Сообщений: 438
1

Сформировать массив с 6-ти целых чисел. Подсчитать количество чисел больших 0. Найти самое большое число

19.01.2014, 21:07. Показов 1253. Ответов 1
Метки нет (Все метки)

1). Сформировать массив с 6-ти целых чисел. Подсчитать количество чисел больших 0. Найти самое большое число.

Заранее здоровенное спасЫба
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.01.2014, 21:07
Ответы с готовыми решениями:

Массив: В функции для двух векторов А(N) и В(М), состоящих из целых чисел, найти самое большое число, которое имеется в обоих векторах
Составить главную программу и функцию. В функции для двух векторов А(N) и В(М), состоящих из целых...

Дано N чисел. Найти самое большое число, на которое делятся все N чисел.
Дано N чисел. Найти самое большое число, на которое делятся все N чисел. Формат входных данных...

В массиве целых чисел подсчитать количество нечётных положительных чисел, больших 50
В массиве целых чисел подсчитать количество нечётных положительных чисел, больших 50. Вывести...

Найти среднее арифметическое отрицательных чисел и подсчитать количество чисел, по величине больших А
1.Найти среднее арифметическое отрицательных чисел и подсчитать количество чисел, по величине...

1
560 / 483 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
19.01.2014, 21:12 2
Лучший ответ Сообщение было отмечено qozyrek как решение

Решение

1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
 
const
 n = 6;
var
 i, nonzero, max: integer;
 arr: array[1..n] of integer;
 
begin
 for i := 1 to n do
  read(arr[i]);
  
 for i := 1 to n do
  if arr[i] > 0 then
   inc(nonzero);
 
 max := arr[1];
 for i := 1 to n do
  if arr[i] > max then
   max := arr[i];
 
 write(nonzero, ' ', max);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.01.2014, 21:12

Найти среднее арифметическое ненулевых чисел и подсчитать количество чисел, по величине не больших А
найти среднее арифметическое ненулевых чисел и подсчитать количество чисел, по величине небольших А...

Создать метод, в котором одномерный массив. И заменить самое большое число и самое большое число по модулю на число 0
Создать метод, в котором одномерный массив. И заменить самое большое число и самое большое число по...

Дан одномерный массив целых чисел, найти сколько раз в нем повторяется самое частое число
Pascal ABC

Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и подсчитать количество чисел
Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и подсчитать...

Из 12 положительных чисел, найти самое большое число и вывести его порядковый номер
Входной файл: input.txt Выходной файл: output.txt Женя купила 12 яблок и по приходу домой...

Дана строка чисел раз деленных пробелами.найти самое большое число
Дана строка чисел раз деленных пробелами.найти самое большое число.гарантируется что символ...


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

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

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