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

Найти сумму всех элементов массива, и количество элементов, значение которых превышает 6

25.04.2015, 14:47. Показов 1426. Ответов 2
Метки нет (Все метки)

ввести с клавитуры из N элементов.Найдите сумму всех элементов и количество элементов значение которых превышают 6.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.04.2015, 14:47
Ответы с готовыми решениями:

Найти сумму элементов массива, значение которых не превышает 20
Дан массив целых чисел из n элементов, заполненный случайным образом. Найти сумму элементов...

Найти сумму элементов массива, значение которых не превышает 20
1. Дан массив. Найти сумму элементов массива, значение которых не превышает 20;

Найти сумму элементов массива, значение которых не превышает 20
Расчет суммы или количества элементов массива, удовлетворяющих некоторому условию 1. Дан массив....

Найти количество элементов массива, абсолютное значение которых не превышает 2
Буду рад любой помощи в задачке: найти количество элементов массива {xk}, абсолютное значение...

2
18 / 18 / 11
Регистрация: 05.01.2014
Сообщений: 119
Записей в блоге: 2
25.04.2015, 16:07 2
Лучший ответ Сообщение было отмечено angelina12313 как решение

Решение

Вот
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const n=10;
var a: array[1..n] of integer;
  i,k,s:integer;
begin
  k:=0;
  s:=0;
  for i:=1 to n do
  readln(a[i]);
  for i:=1 to n do
    begin     
      s:=s+a[i];
      if a[i]>6 then 
      k:=k+1;
    end;
  writeln(k,' ',s);
end.
0
Модератор
8608 / 4289 / 2952
Регистрация: 17.08.2012
Сообщений: 13,637
25.04.2015, 23:36 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var i, n, k: integer;
    s, e: real;
begin
  repeat
    write('n > 0; n = ');
    readln(n)
  until n > 0;
  k := 0;
  s := 0;
  for i := 1 to n do
    begin
      write(i, ' element = ');
      readln(e);
      s := s + e;
      if e > 6 then inc(k)
    end;
  writeln('Sum = ', s);
  write('Quantity of elements, which value more than 6: ', k);
  readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.04.2015, 23:36

Дан массив. Найти сумму элементов массива, значение которых не превышает 20
1. Дан массив. Найти сумму элементов массива, значение которых не превышает 20;

Найти количество элементов значение которых превышает среднее арифметическое всех элементов
дан целочисленный массив из n элементов. Найти количество элементов значение которых превышает...

Найти количество элементов массива, значение которых превышает среднее по массиву
Создал динамический массив. Не могу понять, где ошибка. Выводит только размерность, либо 0....

Замена всех элементов массива, значение которых превышает среднее значение, максимальным элементом
Написать функцию для замены всех элементов массива значение которых превышает среднее значение...


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

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

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