Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Найти и вывести минимальное трехзначное число, записанное в массиве https://www.cyberforum.ru/ pascalabc/ thread1735355.html Дан целочисленный массив из 30 элементов, все элементы которого – неотрицательные числа, не превосходящие 10000. Напишите алгоритм, который находит и выводит минимальное трехзначное число, записанное в этом массиве. Если таких чисел нет, нужно вывести сообщение «Таких чисел нет».	Составьте программу,вычисляющую значение функции Pascal ABC
Pascal ABC Проверьте блок-схему Проверьте пожалуйста алгоритм добрые люди, в них просто не очень разбираюсь program Kursa4; uses crt; var X: array of integer; n,i,j,z,y: integer; begin repeat writeln('ведите размер массива от 2 до 10 n');{Длина массива} readln(n); https://www.cyberforum.ru/ pascalabc/ thread1735290.html	Pascal ABC Составить алгоритм для вычисления суммы составить алгоритм для вычисления суммы: (1+sqrt(2)/3)+(1+sqrt(3)/4)+(1+sqrt(4)/5)+.(1+sqrt(10)/11) https://www.cyberforum.ru/ pascalabc/ thread1735288.html
Pascal ABC Определить максимальную длину подряд идущих цифр 1 Заполнить массив M случайным образом числами 0 и 1 . Вывести полученный массив на экран.Определить максимальную длину подряд идущих цифр 1.	Pascal ABC Определить, через сколько месяцев сумма вклада составит 1000 рублей https://www.cyberforum.ru/ pascalabc/ thread1735259.html Богатый дядюшка дал племяннику n рублей.Племянник положил эти деньги в банк,где они каждый месяц увеличивались на x % . Через сколько месяцев сумма вклада составит 1000 рублей?
Pascal ABC Заполнить массив А по правилу https://www.cyberforum.ru/ pascalabc/ thread1735245.html Используя следующий фрагмент программы, заполнить массив A по правилу Y(с индексами i j)=X(с индексом j, и в степени i) Var A: array of real; X: array of real; Вывести массивы на экран.	Найти сумму элементов одномерного массива Pascal ABC Найти сумму элементов одномерного массива с помощью рекурсивной процедуры.
Pascal ABC Определите сумму первой и последней цифры числа https://www.cyberforum.ru/ pascalabc/ thread1735171.html Задано натуральное многозначное число. Определите сумму его первой и последней цифры, первой и предпоследней цифры.	Pascal ABC Поиск минимального натурального числа, не представимого суммой никаких элементов массива Составьте программу поиска минимального натурального числа не представимого суммой никаких элементов массива P(N). Сумма может состоять и из одного слагаемого, но каждый элемент массива может входить в нее только один раз. https://www.cyberforum.ru/ pascalabc/ thread1735112.html
Вывести число с разделением на триады (тройки) цифр Pascal ABC Вводится натуральное число (как строка). Вывести его с разделением на триады (тройки) цифр (например, 1000000 вывести как 1 000 000).	Pascal ABC В данном двумерном массиве найти строку с наименьшей суммой элементов Выдает через раз ошибку ,а если менять числа в рандоме иногда вобще может не работать помогите исправить. const m=3; n=3; type mas=array of integer; var a:mas; i,j,Smin,S,NomMin:integer; begin Smin:=0; randomize; https://www.cyberforum.ru/ pascalabc/ thread1735086.html

Peoples

1624 / 954 / 782

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

Сообщений: 2,452

Записей в блоге: 30

15.05.2016, 16:58

Для каждой строки заданной матрицы определить и вывести сумму элементов, которые принадлежат четным строкам - Pascal ABC - Ответ 9142354

15.05.2016, 16:58. Показов 1187. Ответов 1

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

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

Решение

Pascal

program pr;
var
  a: array [1..100, 1..100] of integer;
  i, n, m, sum, j: integer;
begin
  writeln('Введите количетсов строк');
  readln(n);
  writeln('Введите количетсов столбцов');
  readln(m);
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := random(21);
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:3);
    writeln;
  end;
  for i := 1 to n do
    if i mod 2 = 0 then
    begin
      sum := 0;
      for j := 1 to m do
      begin
        sum := sum + a[i, j];
      end;
      writeln('Сумма ', i, ' строки: ', sum);
    end;
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

15.05.2016, 16:58

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

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

для каждой строки матрицы с четным номером определить сумму ее элементов.
дана матрица M*N. для каждой строчки четным номером определить сумму ее элементов. Вот наработка...

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

15.05.2016, 16:58

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

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

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

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

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

Наверх