Массивы [pascal]

[Пепел Феникса]

народ, не забывайте что консольный Дельфи и паскаль это не одно и тоже.

[mMAg]

Сообщение от Пепел Феникса

народ, не забывайте что консольный Дельфи и паскаль это не одно и тоже.

Это конечно так, но пусть обрежет все ненужное, в конце концов, в какой среде ему это все надо сдавать нас не должно волновать. Пусть сам подключает нужные библиотеки, а ненужные выкидывает. Функции всё равно аналогичные.

Special for Rulyas :
Ну так удали строку uses SysUtils. Допиши uses crt
Все залетает как миленькое, наверно...

[Serge_Bliznykov]

Сообщение от mMAg

Ну так удали строку uses SysUtils. Допиши uses crt
Все залетает как миленькое, наверно...

var
  mas : array of integer;

var
  mas : array of array of integer;

Да щас!!! "наверное..."
santa simplicity! даже не предполагаете, что в Pascal вообще не было динамических массивов...

[mMAg]

Сообщение от Serge_Bliznykov

Да щас!!! "наверное..."
santa simplicity! даже не предполагаете, что в Pascal вообще не было динамических массивов...

Что правда? Ай-яй-яй, какая досада...

Признаюсь, был некомпетентен, слишком много кода прийдется исправлять...

uses crt;
const maxCount= 20;
var
  mas : array[1..maxCount] of integer;
  masCount, i, sum : integer;
begin
  	clrscr;
	repeat
    		Writeln( 'Введите размерность квадратной матрицы - ' );
  		Readln( masCount );
	until masCount <= MaxCount;
  	for i := 1 to masCount do
	begin	
		writeln('Введите следующий элемент');	
    		readln(mas[i]);
	end;
  	sum := 0;
  	for i := 1 to masCount do
    		if ( ( mas[i] mod 2 ) = 1 ) then
      			inc( sum, mas[i] );
  	writeln('Ответ:   ',sum);
	readln;
end.

Вот код первой задачи, на работоспособность нет никакой возможности проверить.

[Serge_Bliznykov]

mMAg
1) теперь код пойдёт под TurboPascal (я проверил).
Единственное замечание - тут не квадратная матрица, а одномерный массив. Это разные вещи.
Но тем не менее, решение правильное.

2) я ни в коем-разе не хотел сказать, что Вы должны исправлять код и писать под то, под что нужно автору топика... Просто проинформировал, что, как тут уже абсолютно верно было замечено, DOS-ская программа на TurboPascal и консольная программа на Delphi - это далеко не одно и то же (ясное дело - Дельфи гораздо мощнее и имеет намного больше возможностей! да и код получается под Win32, хоть и под консоль...)

3)

Это конечно так, но пусть обрежет все ненужное, в конце концов, в какой среде ему это все надо сдавать нас не должно волновать. Пусть сам подключает нужные библиотеки, а ненужные выкидывает.

и с этим я согласен. Если человек хочет помощи, то он, как минимум, должен пытаться что-то сделать самостоятельно, разобраться в коде/алгоритмах/примерах/советах, которые ему дают.
Иначе это уже не помощь, а фриланс получается...