Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
1nl0ve
0 / 0 / 0
Регистрация: 04.03.2014
Сообщений: 18
1

Найти сумму и количество тех элементов массива, абсолютная величина которых отличается от P не более, чем на T

20.10.2014, 20:27. Просмотров 2114. Ответов 2
Метки нет (Все метки)

Найти сумму и общее количество тех элементов заданного массива X1,X2, … ,Xn, абсолютная величина которых отличается от Р не более, чем на Т. На форуме есть данная задача только для с++. Числа P и Т из файла не должны браться, нужно задать самому
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.10.2014, 20:27
Ответы с готовыми решениями:

Найти минимальную сумму элементов среди трёх массивов,абсолютная величина которых меньше заданного числа P.
Даны три одномерных массива А из 15,В из 20 и C из 10 элементов соответственно.Какой из массивов...

В двумерном массиве найти сумму тех строк массива, в которых положительных элементов больше, чем отрицательных
Помогите нужна блок схема и программа в PascalABCNET. Дан массив X(N,M). Найти сумму тех строк...

Найти сумму тех строк массива, в которых положительных элементов больше, чем отрицательных. Программа и блок-схема
Дан массив X(N,M). Найти сумму тех строк массива, в которых положительных элементов больше, чем...

Найти сумму элементов массива, абсолютная величина которых отличается от 5 не более, чем на 1.2
Найти сумму и общее количество тех элементов массива X(n,m), абсолютная величина которых отличается...

Найти сумму элементов массива, абсолютная величина которых отличается от заданного числа не более, чем на 5
Вот есть заданьице такое: В массиве, содержащем не более 30 элементов ( формат числа цц ), найти...

2
vint-81
охотник
1010 / 534 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
20.10.2014, 22:07 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
24
25
const n=10;
var a:array[1..n] of integer;
    p,t,i,s,k:integer;
begin
 randomize;
 repeat
  writeln('p,t=?,  p,t>=0');
  readln(p,t);
 until (p>=0)and(t>=0);
 s:=0;k:=0;
 for i:=1 to n do
  begin
   a[i]:=-10+random(21);
   write(a[i],' ');
   if abs(abs(a[i])-p)<=t
    then
     begin
      s:=s+a[i];
      inc(k)
     end
  end;
 writeln;
 writeln('s=',s,' k=',k);
 readln
end.
1
1nl0ve
0 / 0 / 0
Регистрация: 04.03.2014
Сообщений: 18
20.10.2014, 23:04  [ТС] 3
Спасибо
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.10.2014, 23:04

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

Найти в ней количество элементов, абсолютная величина которых больше 11
Ввести матрицу A(m,n)(m=4,n=4). Найти в ней количество элементов,абсолютная величина которых больше...

Ввести матрицу A(m,n)(m=4,n=4). Найти в ней количество элементов,абсолютная величина которых больше 11


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

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

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