[Admiral]

Зачем же тему уже создали Всё о TURBO PASCAL (обсуждение, помощь в написание программ, ошибки, Pascal ABC)?
Как раз по содержанию первого поста может подойти.
Понимаю, индивидуализм. А собственно в чём то помощь требуется? Есть какие-то загвостки в исходнике или отсутствие полного понимания вопроса?
Для первого или второго случая подойдёт в разной степени этот линк
Лабы Pascal

[verdix]

Admiral,

Понимаю, индивидуализм. А собственно в чём то помощь требуется? Есть какие-то загвостки в исходнике или отсутствие полного понимания вопроса?

Если ты знаешь язык, то я очень за тебя рад. Я его не знаю!

[Admiral]

verdix, сорри, не хотел обидеть.
Я просто по теме не понять в чём заключается помощь: в самом решении примеров или в подсказке по их решению?
Погуляй пока по той ссылке, что я дал, найди приблизительный пример, попробуй подогнать его к твоим задачам, если что не так будет выходить кидай его в тему через тег {code} будем разбираться всем форумом.
Ещё раз сорри если обидел, цели такой себе не ставил.

[Drongo]

негативных чисел »

несколько оффтоповый вопрос, а как понимать, слово - негативные, это значит, отрицательные?!

позитивными числами »

значит позитивные - это положительные.

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

И ещё не понимаю, какую диагональ считать главной? Если их две...

[verdix]

Drongo,

несколько оффтоповый вопрос, а как понимать, слово - негативные, это значит, отрицательные?!

значит позитивные - это положительные.

ДА, именно это я и имел ввиду. Сорри, с другого языка переводил, допустил ошибку.

ещё не понимаю, какую диагональ считать главной? Если их две...

НУ вот, их две, выбираем которая главнее и считаем. Больше на эту тему сказать ничего не могу!

[Admiral]

Drongo, да это так и есть. Ноль тоже к позитивно-положительным.
Вероятно что та которая длиннее, если не равномерная фигура.
Не те вопросы будут задавать при приёме, а по коду.

В 4м задании

Масив 2х4х3 ... Сосчитать сумму элементов, которые находятся во втором ряду. »

трёх мерный массив. О ком втором ряде идёт речь? Там есть варианты.

[Drongo]

1 задание решил на С++, если можно перевести на требуемый язык...

читать дальше »

Код:

//1) С клавиатуры ввести 5 чисел, вывести масив, сосчитать сумму негативных чисел.
#include <iostream.h>
using std::cout;
using std::cin;
using std::endl;

int main()
{
  int const size = 5;
  int array[size] = {0};
  int summNegativ = 0,
      z;

  for(int i = 0; i < size; i++){
     cout<<" Element [ "<<i<<" ] = ";
     cin>>array[i];
    }

  cout<<endl<<"-----===Vivod massiva===-----"<<endl;

  for(int i = 0; i < size; i++)
     cout<<" Element [ "<<i<<" ] = "<<array[i]<<endl;

  cout<<endl<<"-----===Rashot negativ number===-----"<<endl;

  for(int i = 0; i < size; i++){
     if(array[i] < 0)
        summNegativ += array[i];
    }

  cout<<endl<<"-----===Vivod Resultata Rashota negativnich chisel===-----"<<endl;

  cout<<endl<<" Summa Negativnih chisel ravna = "<<summNegativ<<endl;

  cin>>z;

  return 0;
}
//---------------------------------------------------------------------------

[Drongo]

3) Дана матрица с позитивными числами 4х4. Вввести элементы с клавиатуры. Найти четные числа. Вывести матрицу и результат.

читать дальше »

Код:

//3) Дана матрица с позитивными числами 4х4. Вввести элементы с клавиатуры. Найти четные числа. Вывести матрицу и результат.
#include <iostream.h>
using std::cout;
using std::cin;
using std::endl;

int main()
{
  int const a = 4;
  int const b = 4;
  int array[a][b] = {0};
  int summNegativ = 0,
      z;

  for(int i = 0; i < a; i++){
     for(int j = 0; j < b; j++){
        cout<<" Element [ "<<i<<" ] [ "<<j<<" ] = ";
        cin>>array[i][j];
       }
      }

  cout<<endl<<"-----===Vivod massiva===-----"<<endl;

  for(int i = 0; i < a; i++)
     for(int j = 0; j < b; j++)
     cout<<" Element [ "<<i<<" ] [ "<<j<<" ] = "<<array[i][j]<<endl;

  cout<<endl<<"-----===Rashot chotnih number===-----"<<endl;

  for(int i = 0; i < a; i++){
     for(int j = 0; j < b; j++)
       if((array[i][j] % 2) == 0 && (array[i][j] != 0)){
         summNegativ += array[i][j];
         cout<<" Element [ "<<i<<" ] [ "<<j<<" ] = "<<array[i][j]<<endl;
       }
      }

  cout<<endl<<"-----===Vivod Resultata Rashota chotnih chisel===-----"<<endl;

  cout<<endl<<" Summa Negativnih chisel ravna = "<<summNegativ<<endl;

  cin>>z;

  return 0;
}
//---------------------------------------------------------------------------

Масив 2х4х3 заполнить рандомными числами, в диапозоне от 0 до 5. Сосчитать сумму элементов, которые находятся во втором ряду.
Но решил только эту часть. Масив 2х4х3 заполнить рандомными числами, в диапозоне от 0 до 5. вторую не могу, поскольку не могу понять, где второй ряд у трехмерного массива?!

Думаю, это можно перевести на нужный язык?!

читать дальше »

Код:

//4) Масив 2х4х3 заполнить рандомными числами, в диапозоне от 0 до 5. Сосчитать сумму элементов, которые находятся во втором ряду.
// Но решил только эту часть. Масив 2х4х3 заполнить рандомными числами, в диапозоне от 0 до 5. вторую не могу, поскольку не могу понять,
// где второй ряд у трехмерного массива.
#include <iostream.h>
using std::cout;
using std::cin;
using std::endl;

#include <cstdlib>

int main()
{
  int const a = 2;
  int const b = 4;
  int const c = 3;
  int array[a][b][c] = {0};
  int summNegativ = 0,
      z;

  for(int i = 0; i < a; i++){
    for(int j = 0; j < b; j++){
      for(int r = 0; r < c; r++){
        array[i][j][r] = rand() % 5;
        cout<<" Element [ "<<i<<" ] [ "<<j<<" ] [ "<<r<<" ] = "<<array[i][j][r]<<endl;
       }
      }
     }

  cin>>z;

  return 0;
}
//---------------------------------------------------------------------------

[Drongo]

Admiral,

Вероятно что та которая длиннее, »

в этом массиве, вернее размерность

5х8 »

То:

Код:

1 2 3 4 5 6 7 8
1 2 3 4 5 6 7 8
1 2 3 4 5 6 7 8
1 2 3 4 5 6 7 8
1 2 3 4 5 6 7 8

Диагональ, в любом случае одинаковая, либо от первого ряда и 1 и вниз слева направо по рядам к 8 снижается. Либо от первого ряда и 8 и вниз справа налево по рядам к 1 снижается. Не могу толком объяснить, но я знаю, что вы поймёте.