Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Подсчитать в массивах количество элементов, больших значения t https://www.cyberforum.ru/ pascalabc/ thread1541949.html 1. Заданы два массива A(N) и B(M). Подсчитать в них количество элементов, больших значения t и первым на печать вывести массив, имеющий наименьшее их количество. Значение t вводит пользователь. 2. Задан массив вещественных чисел A.. Необходимо каждый элемент массива разделить на среднее арифметическое элементов массива. На печать вывести исходный и преобразованный массивы.	Подсчитать количество чисел, принадлежащих промежутку [a, b] и сумму чисел, стоящих на местах, кратных 3 Pascal ABC Подсчитать количество чисел, принадлежащих промежутку и сумму чисел, стоящих на местах, кратных 3.
Pascal ABC Программа на минимальное и максимальное введённое число https://www.cyberforum.ru/ pascalabc/ thread1541797.html Столкнулся с проблемой в задаче С клавиатуры вводятся числа до тех пор, пока не будет введено число нуль. Найдите среднее арифметическое минимального и максимального введённых чисел. Делал с помощью цикла while, сказали, что через массив нельзя var x,min,max: real; begin max:=0; min:=0; readln (x);	Pascal ABC Найти число с наибольшим количеством делителей из числового промежутка https://www.cyberforum.ru/ pascalabc/ thread1541729.html Помогите решить задачу, пожалуйста, не понимаю как правильно ее реализовать Задан промежуток от 1 до N, найти число с наибольшим количеством делителей из этого промежутка. желательно не применяя процедуры и функции
Определить местоположение минимального элемента, кратного 3 Pascal ABC Массив заполняется значениями от -10 до 10 ,кол-во элементов задаётся с клавиатуры. Определить местоположение минимального элемента,кратного 3 или вывести сообщение о отсутствии такого. Программа написана, но не всегда правильно работает,помогите исправить,пожалуйста. program abc; var a:array of integer; k,n,i,min:integer; begin writeln('введите количество элементов'); readln(n); k:=0;...	Pascal ABC Найти НОД трех чисел Дано 3 числа (а, в, с). Нужно найти нод (а,в), нод(в,с) и нод(а,с). А затем сравнить и вывести на экран самое большое нод. https://www.cyberforum.ru/ pascalabc/ thread1541684.html
Pascal ABC Написать программу для нахождения значения переменной S по формуле https://www.cyberforum.ru/ pascalabc/ thread1541675.html 3. Написать программу для нахождения значения переменной S по формуле: S=ln1+ln2+...+ln n	Pascal ABC Написать программу для нахождения 25% площади ромба по двум диагоналям 2. Написать программу для нахождения 25% площади ромба по двум диагоналям.
Pascal ABC Проверка формы обучения студента https://www.cyberforum.ru/ pascalabc/ thread1541673.html 1. Написать программу, в которой: a. запрашивается форма обучения (з/о, очная) студента, b. сравнивается введенная информация со значением строковой переменной (за-данным в программе), c. выводится на экран сообщение (совпала или не совпала информация)	Pascal ABC Написать программу для нахождения 25% площади ромба по двум диагоналям https://www.cyberforum.ru/ pascalabc/ thread1541659.html ВАРИАНТ №19 1. Дана квадратная матрица А порядка N и вектор Х = {x1, x2, …, xN}. Все нечетные столбцы матрицы А заменить на вектор X. 2. F(x) = , для x, hx = 0,4 3. Написать программу, в которой: a. запрашивается форма обучения (з/о, очная) студента, b. сравнивается введенная информация со значением строковой переменной (за-данным в программе), c. выводится на экран сообщение (совпала...
Pascal ABC Реализовать арифметические операции в различных системах счисления uses CRT; const a: string = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'; {задаём строку для поиска в ней символов} var n, r: real; rez, s, s2, s3: string; t, cc, ind, cc2, k: integer;	Pascal ABC Нарисовать фигуры по заданным координатам центра, радиусу дуг и цвету 1)Создайте процедуру, рисующую "Облако" по заданным координатам центра, радиусу дуг и цвету. Скриншот во вложении. 2) Создайте процедуру, рисующую сердечко по заданным координатам центра, радиусу дуг и цвету. Скриншот во вложении. https://www.cyberforum.ru/ pascalabc/ thread1541602.html

kot96

54 / 45 / 97

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

Сообщений: 157

01.10.2015, 09:49

Найти сумму не положительных элементов двумерного массива A [N, M ] c четными номерами столбцов - Pascal ABC - Ответ 8137085

01.10.2015, 09:49. Показов 1435. Ответов 1

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

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

Решение

Pascal

program ex;
const n = 3;
      m = 3;
var a:array[1..n,1..m]of real;
i,j:integer;
sum:real;
 
begin
randomize();
for i:=1 to n do 
  for j:=1 to m do
  begin
  a[i,j]:=random(101)-50;
  if (a[i,j] < 0) and (j mod 2 = 0) then
  sum := sum + a[i,j];
  end;
  
for i:=1 to n do 
  begin
    for j:=1 to m do
    write(a[i,j]:3);
  writeln();
  end;
 
writeln('Сумма не положительных элементов в четных столбцах = ', sum);
end.

Вернуться к обсуждению:
Найти сумму не положительных элементов двумерного массива A [N, M ] c четными номерами столбцов Pascal ABC

Programming

Эксперт

94731 / 64177 / 26122

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

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

01.10.2015, 09:49

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

Вычислить сумму положительных элементов матрицы, стоящих в столбцах с четными номерами
Вычислить сумму положительных элементов, стоящих в столбцах с четными номерами. Добавлено через...

Дан массив из N элементов. Нужно найти сумму элементов с четными номерами и отдельно-с нечетными номерами
Помогите сделать

Определить сумму элементов массива X[n] с четными номерами
Определить сумму элементов случайного массива X с четными номерами. Вывести массив и полученную...

Определить сумму элементов массива X[n] с четными номерами
Задание 1. Определить сумму элементов массива X с четными номерами. Вывести массив и полученную...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

01.10.2015, 09:49

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

Найти произведение минимального элемента на сумму положительных элементов двумерного массива
Найти произведение минимального элемента на сумму положительных элементов двумерного массива....

Найти сумму элементов файла с четными номерами
Дан файл вещественных чисел. Найти сумму его элементов с четными номерами!!!

Среди элементов с четными номерами найти сумму нечетных элементов
среди элементов с четными номерами найти сумму нечетных элементов.

Найти минимальный из элементов массива с четными номерами
Дан массив А размера N.Найти минимальный элемент из его элементов с четными номерами:A1,A3,A5.....,

Наверх