Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
BumerangSP
4287 / 1409 / 463
Регистрация: 16.12.2010
Сообщений: 2,941
Записей в блоге: 3
11.03.2012, 12:12 0

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

11.03.2012, 12:12. Просмотров 1057. Ответов 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
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.


Вернуться к обсуждению:
Найти сумму отрицательных элементов, значения которых кратны 10.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.03.2012, 12:12

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

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

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

0
Другие темы раздела
Turbo Pascal Чтение нескольких файлов одной процедурой с параметром http://www.cyberforum.ru/turbo-pascal/thread515751.html
Всем здравствуйте! Помогие сделать следующие.. Почитать два файла одной процедурой с параметром и вывести на экран содержимое каждого файла по отдельности. Спасибо.
Turbo Pascal Составить програму для функции заданой графически для функции заданной графически , построить аналитическую зависимость . составить програму вычисления значения у при заданом значении аргумента http://www.cyberforum.ru/turbo-pascal/thread515741.html
Turbo Pascal Частота появления каждого байта в файле
Здравствуйте. Может кто из знающих людей,скажет,что конкретно нужно изучить для создания,программы в tp. Не прошу готового решения,а просто "наставления"=) Вот само условие задачи : "Создать...
Составить программу, которая печатает true, если точка с координатами принадлежит заштрихованной области Turbo Pascal
Составить программу, которая печатает true, если точка с координатами (x,y) принадлежит заштрихованной области, и false в противном случае:
Turbo Pascal Нужен md5 на паскале http://www.cyberforum.ru/turbo-pascal/thread515712.html
Мне нужно сделать md5 на паскале,пытаюсь найти уже готовые решения в интернете,но все безуспешно и неюзабельно. Кто-нить может скинуть рабочий готовый вариант md5 на паскале?
Turbo Pascal сформировать файл из записей, содержащих различные даты; исключить из файла все компоненты, содержащие весенние даты Составить программы, с помощью которых: сформировать файл из записей, содержащих различные даты; исключить из файла все компоненты, содержащие весенние даты. Благодарен заранее ;) подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru