Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Анимация https://www.cyberforum.ru/ pascalabc/ thread283289.html Здравствуйте народ! Скинь те пожалуйста мне готовые анимации по биологии тема "Растение"! Или же ссылку! Помогите пожалуйста! :cry:	Pascal ABC ЦветаУ меня есть массив ,как сделать чтобы например Вишенка была красным цветом, Виноград синим, Яблоко зелёным У меня есть массив A: array of string = ('Вишенка', 'Виноград', 'Яблоко', 'BAR', 'Арбуз'); как сделать чтобы например Вишенка была красным цветом, Виноград синим, Яблоко зелёным и т.д.?
Pascal ABC Нарисовать животное или насекомое https://www.cyberforum.ru/ pascalabc/ thread283231.html заранее спасибо вам!!!!!!!!	Pascal ABC Подсчитать число нулевых элементов во всей матрице при выполнении условия Разработать программу, выделив процедуры. Если столбцы заданной прямоугольной целочисленной матрицы расположены в порядке возрастания числа нулевых элементов в них, то подсчитать число нулевых элементов во всей матрице, иначе определить столбец с максимальным количеством нулей. https://www.cyberforum.ru/ pascalabc/ thread283216.html
Если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения. Pascal ABC Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B. Помогите решить плиз!!!!!!!	Pascal ABC Дан массив целых чисел. Вывести индексы тех элементов, значения которых кратны 3 и 5 https://www.cyberforum.ru/ pascalabc/ thread283189.html 1)Дан массив целых чисел. Вывести индексы тех элементов, значения которых кратны 3 и 5 2)Определить, есть ли пара соседних элементов с суммой, равной заданному числу А Народ только сказали, чтобы массив автоматически выводился и желательно проверьте сами.. а то я вообще не понимаю в этом.. Добавлено через 1 час 3 минуты ну помогите народ оч срочно надо..
Pascal ABC Заменить в каждом из них максимальный элемент средним арифметическим положительных элементов https://www.cyberforum.ru/ pascalabc/ thread283165.html Ввести одномерные массивы X1, X2, X3 . Заменить в каждом из них максимальный элемент средним арифметическим положительных элементов (если оно существует) соответствующего массива. Вывести массивы до преобразования и после. (При решении реализовать процедуры ввода и вывода массивов Vvod1m(A,N,Name) и Vivod1m(A,N,Name), а также функции IndMax(A,N):byte – поиск индекса максимума и SrAPol(A,N):real –...	Pascal ABC и последняя на вложенные циклы составить программу,печатаюшую для данного натурального числа k k-ю цифру последовательности,в которой вписаны подряд все натуральные числа 123456789101112...
Pascal ABC дискретка https://www.cyberforum.ru/ pascalabc/ thread283121.html Написать программу, которая выводит на экран секторную диаграмму. Диаграмму снабдить заголовком и наименованием для каждого сектора. Исходные данные сформировать в текстовом файле. Количество секторов задавать в программе (в виде именованной константы). Исходные данные взять из таблицы 1. Построение секторной диаграммы оформить в виде процедуры. Параметры процедуры: координаты центра...	Pascal ABC Вычислить значение выражения https://www.cyberforum.ru/ pascalabc/ thread283119.html вычислить: знак суммы от i=1 до n ,еще один знак суммы от j=1 до m и дробь 1/(ii+jj).......(это все одно выражение...найти сумму от суммы дроби)
вложенные циклы... Pascal ABC вывести на экран таблицу 1 123...9 12...80 ... 100...0	Pascal ABC надо решить...жду ответов(с циклом while или repeat) https://www.cyberforum.ru/ pascalabc/ thread283115.html дано натуральное число.обозначим через n количество разрядов в числе.(цифры числа нумеруются справо на лево.)поменять местами n-ю и первую цифры числа

Высокий

250 / 250 / 135

Регистрация: 09.04.2011

Сообщений: 524

07.05.2011, 18:17

Найти сумму отрицательных элементов массива - Pascal ABC - Ответ 1624994

07.05.2011, 18:17. Показов 16947. Ответов 6

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

Mind2010 на будущее - одна тема = одна задача. незачем некропостить.

Pascal

uses crt;
type mas1 = array[1..30] of integer;
     mas2 = array[1..30] of real;
var D: mas1;
    A: mas2;
    i,j: byte;
begin clrscr;
writeln('Ââîäèòå ìàññèâ: ');
for i:=1 to 30 do begin
read(D[i]);
if odd(i) then D[i]:=sqr(i);
end;
for i:=1 to 30 do
  if d[i] mod 5 = 0 then begin
  D[i]:=0;
  break end;
writeln('Ìàññèâ D: ');
for i:=1 to 30 do write(D[i]:5);
writeln;
writeln('Ìàññèâ À: ');
for i:=1 to 30 do begin
if odd(i) then A[i]:=D[i]/i
  else A[i]:=sqr(D[i]);
write(A[i]:5:1);
end;
readkey
end.

Вернуться к обсуждению:
Найти сумму отрицательных элементов массива Pascal ABC

Следующий ответ

Заказать работу у эксперта

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

07.05.2011, 18:17

Готовые ответы и решения:

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

Среди элементов нечётных столбцов массива найти сумму отрицательных элементов
Дан массив Х(N,М). Среди элементов нечетных столбцов массива найти сумму отрицательных элементов.

Найти сумму модулей отрицательных элементов среди четных строк элементов массива.
Дан массив X(N,M). Найти сумму модулей отрицательных элементов среди четных строк элементов массива.

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

	07.05.2011, 18:17

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

07.05.2011, 18:17

Помогаю со студенческими работами здесь

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

Найти сумму всех отрицательных элементов массива
помогите с задачкми) плиз):umnik::read::help::help: Найти сумму всех отрицательных элементов...

Найти сумму отрицательных элементов массива R, попадающих в интервал (с,d),

Найти сумму квадратов всех отрицательных элементов массива
2)В массиве из 100 случайных чисел принадлежащих интервалу (-45..45) найти сумму всех отрицательных...

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

Наверх