Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Найти натуральное число в диапазоне от 1 до n с максимальной суммой делителей https://www.cyberforum.ru/ pascalabc/ thread867653.html
Найти натуральное число в диапазоне от 1 до n с максимальной суммой делителей
Найти массу тела в килограммах Pascal ABC
Единицы массы пронумерованы следующим образом: 1 – килограмм, 2 – миллиграмм, 3 – грамм, 4 – тонна, 5 – центнер. Дан номер единицы массы (целое число в диапазоне 1–5) и масса тела в этих единицах (вещественное число). Найти массу тела в килограммах.
Pascal ABC Составить блок схему Проверить является ли матрица А(n,n) диагональной (все элементы нули ,кроме главной диагонали), единичной (все элементы нули, на главной диагонали только единицы) или нулевой (все элементы нули). program z3; uses crt; const nmax=15; var a: array of byte; i,j,n: byte; d,e,z: boolean; begin repeat write('n='); readln(n); https://www.cyberforum.ru/ pascalabc/ thread867640.html Pascal ABC Вычисление суммы Составить программу вычисления суммы и выполнить её при указанном значении X. an(x) = K=1; m=10; x=0.3 https://www.cyberforum.ru/ pascalabc/ thread867636.html
Pascal ABC Число элементов последовательности
Текст задачи: f(i)=tg(i+sqrt(i)) Вычисляемая величина: Число элементов последовательности, по модулю меньших 1.
Pascal ABC Таблица значений функции y(x) в диапозоне изменения аргумента Составить программу вычисления таблицы значений функции y(x) в диапазоне изменения аргумента a<=x<=b c шагом h. y(x): xarctgx-ln(sqrt(1+x^2)); a=0.3; b=0.8; h=0.05 https://www.cyberforum.ru/ pascalabc/ thread867604.html
Pascal ABC Вычислить периметр и площадь любого треугольника по известным сторонами (использовать формулу Герона) Вычислить периметр и площадь любого треугольника по известным сторонами ( использовать формулу Герона ) Помогите пожалуйста, буду очень благодарен. Ichimaru, обращаю ваше внимание на необходимость соблюдения правил форума: 1) один вопрос, одна тема. Вторая задача здесь https://www.cyberforum.ru/pascalabc/thread865400.html 2) заголовок должен отражать суть задания https://www.cyberforum.ru/ pascalabc/ thread867592.html Найти названия книг данного автора, изданных с 1980 года Pascal ABC
Дан файл f , содержащий сведения о книгах. Сведения о каждой из книг - это фамилия автора, название и год издания. Найти названия книг данного автора, изданных с 1980 года. ( Необходимо создать файл f в блокноте, а программу в Pascal ABC )
Pascal ABC Составить блок схему помогите составить блок схему. не понимаю их. Определить максимальный и минимальный элементы среди положительных нечётных элементов целочисленного массива Х. Удалить из массива все нулевые элементы. Program z2; var a:array of integer; min,max,i,n,s,b,f,x:integer; k:string; begin write('Введите размер массива: '); readln(n); writeln('Исходный массив: '); https://www.cyberforum.ru/ pascalabc/ thread867540.html Pascal ABC Составить блок схемы https://www.cyberforum.ru/ pascalabc/ thread867539.html
помогите составить блок схему. не понимаю их. Вводится последовательность ненулевых чисел, 0- конец последовательности. Определить, сколько раз последовательность поменяет знак. Program z1; Var x,y: real; K:integer; Begin Writeln('введите число'); Readln(x); Writeln('введите число'); Readln(y);
Pascal ABC Сформировать файл result.txt из строк исходного файла, в начале каждой должен быть порядковый номер, а в конце - количество символов
1. Создать текстовый файл, имя которого запрашивается с клавиатуры. Заполнить его набором строк, вводимых с клавиатуры. Окончание ввода – строка вида ‘#’. 2. Вывести все содержимое файла на экран. Сформировать файл result.txt, содержащий строки из исходного файла, в начало каждой строки должен быть записан ее порядковый номер, а в конец строки число, показывающее количество символов в строке.
Pascal ABC Составьте программу вычисления среднего арифметического целых чисел из отрезка [-4; 15] https://www.cyberforum.ru/ pascalabc/ thread867521.html
Составьте программу вычисления среднего арифметического целых чисел из отрезка . Напишите пожалуйста с While И Repeat Alex Nifera, обращаю ваше внимание на необходимость соблюдения правил форума: заголовок должен отражать суть задания. Название раздела не подходит.
bmstu-team
301 / 136 / 91
Регистрация: 10.01.2012
Сообщений: 420
Записей в блоге: 10
17.05.2013, 01:05 0

Найти сумму элементов, удовлетворяющих условию - Pascal ABC - Ответ 4569216

17.05.2013, 01:05. Показов 2194. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено александр_танк как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
const N = 10;
var a:array[1..N] of integer;
    s:real;
    i:byte;
begin
randomize;
s:=0;
For i:=1 to 10 do begin
a[i]:=random(11)-5; write(a[i],' ');
If a[i]<(2*i) then begin
s:=s+a[i];
end;end;
writeln;
write('Ñóììà: ',s);
end.


Вернуться к обсуждению:
Найти сумму элементов, удовлетворяющих условию Pascal ABC
1
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2013, 01:05
Готовые ответы и решения:

В однородном массиве найти сумму элементов, удовлетворяющих условию
Помогите решить. В однородном массиве Х(15)найти: сумму элементов, удовлетворяющих условию ,...

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

Вычислить сумму и количество элементов массива , удовлетворяющих условию 0<=x(i)<=1
x(100) вычислить сумму и количество элементов массива , удовлетворяющих условию 0&lt;=x(i)&lt;=1

В матрице найти наибольший из элементов, удовлетворяющих условию
В матрице А(7,7)найти наибольший из элементов,удовлетворяющих условию cos^7 a&gt;0,5 и поменять его...

1
17.05.2013, 01:05
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.05.2013, 01:05
Помогаю со студенческими работами здесь

В матрице найти наибольший из элементов, удовлетворяющих условию
Помогите клинит мозг! В матрице А(7,8) найти наибольший из элементов, удовлетворяющих условию cos...

Найти произведение элементов массива A={a[i]}, удовлетворяющих условию: с <= a[i] <= d
Длина массива N&lt;=20. Исходные данные задать самостоятельно, учитывая формат элементов массива A...

Найти максимальный элемент среди элементов матрицы, удовлетворяющих условию
Найти: p – максимальный элемент среди элементов матрицы А, удовлетворяющих условию abs(aij)&lt;1...

В матрице А(7,8) найти наибольший из элементов, удовлетворяющих условию и поменять его местами
Народ выручайте нужно составить программу с условием:В матрице А(7,8) найти наибольший из...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru