Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Найти количество согласных букв предложения В входном файле записано предложение. Вывести в выходной файл построчно следующие результаты количество согласных букв, самое длинное слово, сумму нечетных цифр, сумму чисел, все слова палиндромы, напечатать все символы встречающиеся в тексте только один раз https://www.cyberforum.ru/ pascalabc/ thread1743830.html Возведение числа в квадрат, передача параметра по значению и по ссылке Pascal ABC
Написать две функции возведения числа в квадрат. Использовать в первой функции передачу параметра по значению, во второй – по ссылке.
Pascal ABC Составить двусвязный список из слов некоторого предложения https://www.cyberforum.ru/ pascalabc/ thread1743701.html
2. Составить двусвязный список из слов некоторого предложения. Вставить новое слово перед каким-либо из элементов списка. Что останется от повторенного несколько раз удаления каждого второго элемента (какое последнее слово).
Pascal ABC Все четные числа заменить нулем 1.Дан односвязный список типа кольцо, элементами которого являются целые числа. Все четные числа заменить нулем. https://www.cyberforum.ru/ pascalabc/ thread1743700.html
Pascal ABC Определить прирост суммы вклада в банке (циклы с пред- и пост-условием)
Гражданин 1 июля открыл счет в банке, вложив S руб. Через каждый месяц размер вклада увеличивается на N% от имеющейся суммы. Определить прирост суммы вклада за 1,2,...,10 месяц.
Pascal ABC Анимация: взлет ракеты \помогите пожалуйста нарисовать ракету с анимацией взлета https://www.cyberforum.ru/ pascalabc/ thread1743624.html
Pascal ABC Вывести все простые числа, оканчивающиеся на 1 Создать файл из 250 целых чисел, лежащих на отрезке U, используя генератор случайных чисел. -Вывести все данные на экран. -Вывести все простые числа, оканчивающиеся на 1. -Найти числа, отличающиеся от среднего арифметического более чем на 100. Помогите пожалуйста. Надо сдать что бы был допуск к экзамену. https://www.cyberforum.ru/ pascalabc/ thread1743612.html Pascal ABC Вывод данных файла на экран: Ошибка времени выполнения: Bad typed file size
23 421 12 421 12 124 43 65 765 532 432 вот дан в файле надо вывести на экран Var f:file of integer; n,i:integer; Begin Assign(f,'C:\PABCWork.NET\input.txt');Reset(f); for i:=1 to filesize(f) do begin read(f,n); writeln(n);
Pascal ABC Незвестное имя x. Что это значит https://www.cyberforum.ru/ pascalabc/ thread1743575.html
прошу помочь. не могу понять в чем проблема program zmeika; uses crt; type spoint=record x:integer; y:integer; end; {тип для точки} const
Pascal ABC Найти недочет в большом коде Привет ребятушки я и Паскаль вместе уже 9 месяцев но недавно он меня подставил так, что не могу его простить. Помогите разобраться с его ошибками. Месяц работал над очень странной игрой на финальный экзамен про операторов эскалатора, багов вышло много, часто вылетает но и фиг с ним, недавно пытаясь дополнить программу за 15 минут до сдачи (На всю жизнь запомню что нельзя так делать) задел... https://www.cyberforum.ru/ pascalabc/ thread1743526.html
Напечатать в алфавитном порядке все гласные буквы, которые не входят более чем в одно слово Pascal ABC
Помогите пожалуйста написать программу Дана непустая последовательность слов из строчных латинских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке все гласные буквы, которые не входят более чем в одно слово. Заранее, спасибо!
Pascal ABC Вывести на экран все составные числа Создать файл из 150 целых чисел, лежащих на отрезке , используя генератор случайных чисел. -Вывести эти числа на экран. -Вывести на экран все составные числа. -Найти среднее арифметическое трехзначных чисел. https://www.cyberforum.ru/ pascalabc/ thread1743444.html
257 / 234 / 185
Регистрация: 02.04.2016
Сообщений: 898
25.05.2016, 11:15 0

Составить программу, которая находит сумму четных элементов массива - Pascal ABC - Ответ 9186459

25.05.2016, 11:15. Показов 6631. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
const n=30;
var a:array [1..n,1..n] of integer;
i,j,sum:integer;
BEGIN
sum:=0;
For i:=1 to n do  //заполнение матрицы
  For j:=1 to n do
  a[i,j]:=Random (100);
For i:=1 to n do  //поиск суммы
  For j:=1 to n do
  IF a[i,j] mod 2 = 0 THEN sum:=sum+a[i,j];
Writeln (sum);
END.


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

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

Составить программу, которая находит сумму чисел из диапозона от 3 до 30 с шагом 1
Составить программу,которая находит сумму чисел из диапозона от 3 до 30 с шагом 1,которые при...

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

Нужно составить программу которая выводит на экран произведение четных элементов массива (массив длинной 6)
Вобщем такая задача составить программу которая выводит на экран произведение четных элементов...

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

Составить программу, которая находит максимальное и минимальное значения элементов в массивах
Составить программу, которая находит максимальное и минимальное значения элементов в массивах А(M),...

Написать программу, которая находит сумму элементов, стоящих на диагоналях, параллельных главной
Дана матрица A(nxn). Написать программу, которая находит сумму элементов, стоящих на диагоналях,...

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

Требуется написать программу, которая в каждом столбце матрицы находит сумму модулей нечетных элементов
Дана матрица размерностью n x m. Требуется написать программу, которая в каждом столбце матрицы...

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