Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
a666
0 / 0 / 0
Регистрация: 19.02.2012
Сообщений: 36
#1

Найти сумму отрицательных элементов, значения которых кратны 10. - Turbo Pascal

11.03.2012, 10:25. Просмотров 1024. Ответов 3
Метки нет (Все метки)

1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-170,83]. Найти сумму отрицательных элементов, значения которых кратны 10.
2. Вывести индексы тех элементов, значения которых кратны 5 и 10.
3. Определить, есть ли пара соседних элементов с произведением, равным заданному числу K.

В случае отсутствия искомых данных, вывести об этом сообщение. По возможности, самостоятельные части программы оформлять в виде подпрограмм.
http://www.cyberforum.ru/turbo-pascal/thread617718.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.03.2012, 10:25
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти сумму отрицательных элементов, значения которых кратны 10. (Turbo Pascal):

Подсчитать сумму элементов массива, значения которых кратны 8
Приветик друзья. Нуждаюсь в вашей помощи... Встряла с задачей, причём походу...

Вычислите количество элементов массива, значения которых кратны 5
Задание 6. Вычислите количество элементов массива, значения которых кратна 5.

Вычисление суммы элементов массива а, значения которых кратны N
Составить программу вычисления суммы элементов массива а, значения которых...

Найти сумму всех отрицательных элементов, сумма индексов которых не менее К
Помогите пожалуйста решить вот такую задачу. В целочисленной матрице размера...

В одномерном массиве указать номера элементов, значения которых кратны пяти
В одномерном массиве указать номера элементов, значения которых кратны пяти, и...

3
BuPy7
Нет ТЗ - давай досвидания
741 / 371 / 64
Регистрация: 01.12.2011
Сообщений: 2,245
11.03.2012, 11:38 #2
Решение задания под номером 1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
const n=15;
var a:array[1..n] of integer;
       sum:integer;
       i:byte;
begin
  randomize;
  for i:=1 to n do 
      begin
        a[i]:=-170+random(253);
          if (a[i]<0) and (a[i] mod 10=0) then sum:=sum+a[i];
     end;
     writeln(sum);
end.
Я с радостью написал бы тебе и 2 и 3, но я сейчас с телефона, а компьютер увижу только завтра. Устал уже это то писать
2
a666
0 / 0 / 0
Регистрация: 19.02.2012
Сообщений: 36
11.03.2012, 12:11  [ТС] #3
хех)) спс большое, но я забыл указать что первые две цифры я сделал... вот с 3 затруднения возникли=))
0
BumerangSP
4287 / 1409 / 463
Регистрация: 16.12.2010
Сообщений: 2,941
Записей в блоге: 3
11.03.2012, 12:12 #4
Держи полный пак своих заданий
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
uses crt;
const n=10;
var i,j,j1,j2,sum:integer;
    k: longint;
    a: array [1..n] of integer;
begin
 clrscr;
 randomize;
 writeln('Исходнвй массив');
 for i:=1 to n do
  begin
   a[i]:=-170+random(253);
   write(a[i]:4);
  end;
 writeln;
 write('Введите k: ');
 readln(k);
 {нахождение суммы}
 for i:=1 to n do
  begin
   if (a[i]<0) and (a[i] mod 10 = 0) then
    begin
     sum:=sum+a[i];
     inc(j2);
    end;
   {вывод индексов, знач. котор. кратны 5  и 10}
   if (a[i] mod 5 = 0) or (a[i] mod 10 = 0) then
    begin
     writeln('2)',i);
     inc(j);
    end;
   end;
  {определение произведения соседних элементов}
 for i:=1 to n-1 do
  if a[i]*a[i+1]=k then
   inc(j1);
 if j2>0 then
  writeln('1)Sum=',sum)
  else
   writeln('1)Элементов с такой суммой не найдено');
 if j=0 then
  writeln('2)Элементов, кратных 5 и 10, не найдено');
 if j1>0 then
  writeln('3)Есть')
  else
  writeln('3)Нет');
 readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.03.2012, 12:12
Привет! Вот еще темы с решениями:

Ограничить значения всех элементов, абсолютные значения которых, превышают среднее для положительных и отрицательных элементов
Нуждаюсь в помощи!Нужно составить программу! Ограничить значения всех...

Найти сумму элементов массива, стоящих на четных местах. Подсчитать количество элементов, значения которых меньше 1
помогите пожалуйста решить задачку на паскале: Дан одномерный массив ci , где...

Заменить нулевые элементы массива на сумму элементов,значения которых кратны некоторому целому значению.
В одномерном массиве A с размерностью N: Заменить нулевые элементы массива на...

Найти произведение тех элементов массива значения которых заключены в интервале [А, В] и кратны 3 или 5
Нужно сделать две программы: Дан массив X(N). 1) Найти произведение тех...


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

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

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