Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Для заданного числа Н(1<Н<10000) написать программу, которая находит все совершенные числа, меньшие Н Число называется совершенным,если сумма его делителей (кроме него самого) равна этому числи. Например, 6=1+2+3, т.е. 6 - совершенное число, 8>1+2+3+4, 8- совершенноею Для задонного числа Н(1<Н<10000) написать программу, которая находить все совешенные числа, меньшие Н. https://www.cyberforum.ru/ pascalabc/ thread2387848.html	Составить программу, вычисляющую сумму Pascal ABC Дано натуральное число н(<100).Составить программу, вычисляющую сумму C:=sqr(н)/(12) + sqr(н)/(234)+ sqr(н)/(3456)+… +sqr(н)/(н(н+1)…2н)
Pascal ABC Найти делители натурального числа Н https://www.cyberforum.ru/ pascalabc/ thread2387841.html Найти все радикалные делители натурального числа Н	Pascal ABC Создать новый файл, где каждая дата увеличена ровно на один день. Предусмотреть возможности перехода в другой месяц, год https://www.cyberforum.ru/ pascalabc/ thread2387837.html Дан файл, содержащий различные даты. Каждая дата — это число, месяц и год. Создать новый файл, где каждая дата увеличена ровно на один день. Предусмотреть возможности перехода в другой месяц, год.
Локальные и глобальные переменные Pascal ABC var a,b,c,d:integer; procedure p(x:integer; var a:integer); var c:integer; begin x:=5; a:=6; c:=7; d:=8 end; begin a:=1; b:=2; c:=3; d:=4; p(a,b); write(a,' ',b,' ',c,' ',d) end.	Pascal ABC Составлении программм вычисления следующих функций нужен грамотный взгляд на вещи :cry: https://www.cyberforum.ru/ pascalabc/ thread2387806.html
Pascal ABC Переделать код под аналогично другой вариант https://www.cyberforum.ru/ pascalabc/ thread2387743.html Помогите переделать этот код по это задание: 1. Выполнить вручную расчет первых двух значений дискретной функции, являющейся решением данного дифференциального уравнения. Дифференциальное уравнение Начальное условие Интервал интегрирования Шаг y'=1+ysin⁡x-2y y(0)=0 0.1 Решить дифференциальное уравнение двумя способами: методом Эйлера и методом Рунге–Кутта четвертого порядка....	Сложение чисел и сравнение Pascal ABC Напишите пж программу которая складывает сначала 5 чисел и другие 5 чисел и потом показывает большие из них(9 класс)
Pascal ABC Нарисовать бабочку в PascalABC https://www.cyberforum.ru/ pascalabc/ thread2387127.html Как на рисунке	Pascal ABC Двумерный массив заполнен случайными числами интервал [5.100]. Найдите пару пар чисел https://www.cyberforum.ru/ pascalabc/ thread2387021.html Двумерный массив заполнен случайными числами интервал . Найдите пару пар чисел.
Pascal ABC Сколько еще нужно раскрасить, чтобы закончить окраску коридора? 2. В школьном коридоре необходимо покраска пола длиной 56 м. После окраски коридора 22 метра, окраска была завершена. Сколько еще нужно раскрасить, чтобы закончить окраску коридора? На казахском; Мектеп коридорында ұзындығы 56 м, еденді бояу керек. Дәліздің ұзындығы 22 метр бояғаннан кейін А кг бояу аяқталды. Дәлізді бояуын аяқтау үшін тағы қанша бояу керек?	Pascal ABC Модуль: Вернуть в новый массив только положительные элементы Поместить в модуль подпрограмму, возвращающую только положительные элементы массива в новый массив. Продемонстрировать работу модуля в основной программе. Помогите пожалуйста :) https://www.cyberforum.ru/ pascalabc/ thread2386884.html

WildDen

109 / 68 / 46

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

Сообщений: 288

02.03.2019, 21:22

Найти сумму элементов в каждой строке двумерного массива, состоящего из целых чисел - Pascal ABC - Ответ 13371102

02.03.2019, 21:22. Показов 4968. Ответов 1

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

Ответ

Pascal

Uses Crt;
const
N=3;
M=4;
var
a: array [1..N,1..M] of integer;
b: array [1..N] of integer;
s,i,j:integer;
begin
for i:=1 to N do 
for j:=1 to M do 
a[i,j]:=random(-19,30);
for i:=1 to N do begin
for j:=1 to M do
write(a[i,j],' ');
writeln;
end;
for i:=1 to N do begin
s:=0;
for j:=1 to M do 
s:=s+a[i,j];
b[i]:=s;
end;
for i:=1 to N do 
writeln('summa ',i,' stroki=',b[i]);
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

02.03.2019, 21:22

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

Найти сумму элементов массива, состоящего из 12 целых чисел.
7. Найти сумму элементов массива, состоящего из 12 целых чисел.

Дан двухмерный массив целых чисел. В каждой его строке найти сумму отрицательных элементов
Дан двухмерный массив целых чисел. В каждой его строке найти сумму отрицательных элементов. Задачу...

Найти сумму элементов в каждой строке двумерного массива, состоящего из целых чисел
Найти сумму элементов в каждой строке двумерного массива состоящего из целых чисел размер m на n.

Найти сумму элементов в каждой строке двумерного массива
Здравствуйте) Помогите пожалуйста решить несколько задач) Заранее огромнейшее спасибо) 1. В...

	02.03.2019, 21:22

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

02.03.2019, 21:22

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

Найти сумму всех четных элементов двумерного массива целых чисел А[10,10]
Ребята помогите пожалуйста написать программу на Паскале) Найти сумму всех четных элементов...

Найти сумму всех четных элементов двумерного массива целых чисел размерности 4*8. В чем ошибка в программе?
Найти сумму всех четных элементов двумерного массива целых чисел размерности 4*8. program p2;...

Даны 4 строки. В каждой строке по 6 целых 4-ех значных чисел. Нужно найти среднее арифметическое чисел у каждой строки и определить в какой строке сре
Даны 4 строки. В каждой строке по 6 целых 4-ех значных чисел. Нужно найти среднее арифметическое...

Дан двухмерный массив целых чисел. В каждой его строке найти количество четных элементов.
Дан двухмерный массив целых чисел. В каждой его строке найти количество четных элементов.

Наверх