Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Найти две самые удалённые точки https://www.cyberforum.ru/ pascal/ thread1862335.html
Один очень сильный мальчик по имени Тима поймал Вас на переулке Манхэттена. Единственный шанс уйти без повреждений — решить следующую задачу! Даны N точек в пространстве. Требуется найти две самые удалённые точки. Расстояние между точками (x1; y1; z1) и (x2; y2; z2) равно jx1 􀀀 x2j + jy1 􀀀 y2j + jz1 􀀀 z2j.
Pascal Обработка строки
Необходимо создать программу, необходимые функции и процедуры у меня есть (прикреплены ниже), а с основным телом есть проблемы. Помогите, пожалуйста, студенту. Условие : Дана строка, содержащая русский текст. Если в тексте нет слов-палиндромов длиной более 1-й буквы, то вывести слова текста в соответствии с убыванием количества согласных, в противном случае пpодублиpовать в словах...
Pascal Перевод в двоичный код перевод числа в двоичный код и обратно https://www.cyberforum.ru/ pascal/ thread1861780.html Pascal Задача. Терминалы на вокзале На вокзале установлено N типов терминалов по продаже билетов. Количество терминалов i-го типа равно Ci. Когда пассажир приходит на вокзал чтобы купить билет, то он выбирает свободный терминал с наименьшим типом (они новее и пользоваться ими приятнее). На покупку билета каждый пассажир тратит T секунд, независимо от типа терминала. Если свободных терминалов нет, то пассажир уходит с вокзала. Если... https://www.cyberforum.ru/ pascal/ thread1861720.html
Pascal Ошибка: файл не найден
В 13 строчке выдает ошибку "файл не найден". Подскажите в чем может быть ошибка Program otchot; const N=5; M=15; K=4; type stud=record fam:array of char; GOD: INTEGER; O:ARRAY OF 2..5 END; VAR B:ARRAY OF STUD;
Pascal Вывести порядок, в котором находятся машины после обработки всех сообщений В гонках "Формулы N" участвует N машин. В результате квалификационного заезда машины получили порядковые номера и стартовали в порядке от 1 до N. Вася - страстный поклонник гонок, но у него в общежитии плохой интернет и он не может смотреть видео-трансляцию. Поэтому он вынужден читать текстовую трансляцию, в которой все сообщения имеют вид "Машина номер X обогнала машину номер Y".Вася ненадолго... https://www.cyberforum.ru/ pascal/ thread1861662.html
Pascal Специальная функция: функция Бесселя https://www.cyberforum.ru/ pascal/ thread1861559.html
Составить программу с использованием процедур и функций для получения таблицы функции на отрезке с шагом h. Кроме того, сохранить полученную таблицу в файле выходных данных. J_n(x)=\sum_{k=0}^{\infty}\frac{(-1)^k}{k!(n+k)!}\left( \frac{x}{2}\right)^{n+2k} - функция Бесселя первого рода порядка n. Задачу решить для n=1.
Pascal Определить количество перемен знака в массиве
Программа с двумерным массивом. Дан массив A (I,J). Определить количество перемен знака (с " + " на " - ", или " - " на " + ")" Ещё было бы круто, если была бы схема к этой задаче. Заранее признателен.
Pascal Упражнения Pascal помогите пожалуйста https://www.cyberforum.ru/ pascal/ thread1861504.html Pascal как работает программа Здравствуйте,помогите узнать как работает программа,а именно вывод слов которые встречаются по одному разу. Если не трудно,сделайте комментарии к программе,заранее спасибо!type mas=array of string; masi=array of byte; var s,slovo:string; sl:mas; ksl:masi; i,j:byte; f,ff:boolean; begin for i:=1 to 30 do begin sl:='';ksl:=0 end; https://www.cyberforum.ru/ pascal/ thread1861460.html
Pascal подсчитать сумму выражения. Написать программу, находящую ответ за минимальное время и наименьший объем памяти
Необходимо подсчитать сумму S(n) = 1 - 2 + 3 - 4 + … + (-1)n+1*n. Напишите программу, которая находит ответ за минимальное время и использует наименьший объем оперативной памяти. Входные данные: одно целое число n (1 ≤ n ≤ 109) Выходные данные: ответ S(n)
Pascal Ошибка: "Индекс находился вне границ массива" Ребят, помогите пожалуйста, никак не пойму в чем ошибка. Pascal пишет: До обменаОшибка времени выполнения: Индекс находился вне границ массива. Само задание: Дан массив из n слов произвольной длины (длина слова не превышает 80 символов). Символами могут быть только заглавные латинские буквы. Найти слова, содержащие соответственно наибольшее и наименьшее количество гласных букв, и поменять... https://www.cyberforum.ru/ pascal/ thread1861366.html
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
28.11.2016, 14:07 0

Вывести сумму чётных элементов каждой строки двумерного массива - Pascal - Ответ 9825521

28.11.2016, 14:07. Показов 3725. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Розаля как решение

Решение

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
26
const m=3;
      n=4;
var c:array[1..m,1..n]of integer;
    i,j:byte;
    s:integer;
begin
randomize;
writeln('Матрица С');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    c[i,j]:=-10+random(21);
    write(c[i,j]:4);
   end;
  writeln;
 end;
writeln('Суммы четных элементов строк');
for i:=1 to m do
 begin
  s:=0;
  for j:=1 to n do
  if c[i,j] mod 2=0 then s:=s+c[i,j];
  writeln('строка ',i,'=',s);
 end;
end.


Вернуться к обсуждению:
Вывести сумму чётных элементов каждой строки двумерного массива Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.11.2016, 14:07
Готовые ответы и решения:

Определить сумму элементов каждой строки двумерного массива
В прямоугольной матрице размером М*Т, имеющей имя МАS содержаться целые числа. М - число строк, Т -...

Вычислить сумму положительных элементов каждой строки двумерного массива
Составить программу на Паскале для обработки двумерного массива размерностью 3*4. Массив заполнить...

Вычислить сумму положительных элементов каждой строки двумерного массива
Пожалуйста, напишите оригинально Составить программу на Паскале для обработки двумерного массива...

Найти нули в каждой строке двумерного массива и заменить их на сумму элементов всей строки
const n=5; var a:array of real; i,j,k:integer; sum:real; begin a:=0.1; a:=0; a:=4; a:=4;...

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

Для каждой строки двумерного массива D вычислить сумму элементов столбцов с четными номерами
Для каждой строки двумерного массива D вычислить сумму элементов колонок с четными номерами

Найти сумму элементов каждой строки двумерного массива
Дан двумерный массив A(4,3). Найти сумму элементов каждой строки этого массива.

Вычислить сумму элементов каждой строки двумерного массива
Задать двумерный массив m * n целых чисел m = 2, n = 3. Вычислить сумму элементов каждой строки

Найти сумму четных элементов каждой строки массива
1.Заполнить двумерный числовой массив А целыми числами. Найти сумму четных элементов каждой строки...

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