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. Показов 16830. Ответов 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

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

07.05.2011, 18:17

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

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

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

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

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

	07.05.2011, 18:17

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

07.05.2011, 18:17

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

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

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

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

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

Наверх