Программисты помогите!!!

[kesha_good]

Здравствуйте! Помогите пожалуйста решить 2 задачи по Паскалю. Вот задачи:

http://narod.ru/disk/19021732000/%D0%9C%D0%B0%D1%81%D1%81%D0%B8%D0%B2%D1%8B.doc.html

Заранее благодарен!!!

[goH]

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

[kesha_good]

вот

[ToNY667]

var a:array[1..100] of real;
s:real;
i:integer;
begin
clrscr;
randomize;
for i:=1 to 100 do begin
x[i]:=random(10)/10;
write(' ',x[i]);
s:=s+x[i];
end;
writeln(s);
readkey;
end.

uses crt;

var a:array[1..10,1..15];

i,j,s,n:integer;

begin

randomize;

for i:=1 to 10

for j:=1 to 15 do

a[i,j]:=radnom(10)+1;

дпльше позже продолжу... или кто-нибудь еще...

[Zolto0801]

Куда обращаться по подключению (настройке) ЖК ТВ к ПК?

[ToNY667]

Zolto0801

Вам в "Железный форум" или во "Взаимопомощь"

[Mike]

Куда обращаться по подключению (настройке) ЖК ТВ к ПК?

А причём здесь программисты? *107

Может к гуглу обратиться.

[kesha_good]

вот программа:

Program massiv1;

var

a: array [0..100] of real;

i,j: byte;

summa,x:real;

Begin

randomize;

for i:= 0 to 99 do //заполняем массив случайными числами в диапазоне от 0 до 1

begin

a:=random(x);

end;

for i:=0 to 99 do

begin

summa:=summa+x;

inc(j);

end;

writeln('сумма элементов массива равно ' fltostr(summa));

writeln('количество элементов массива: ' inttostr(i));

End;

Нужен модуль SysUtils для Turbo Pascal 7.1

Может у кого есть модуль SysUtils? Киньте ссылочку плииз.

[L0K1]

он как бе встроен. pascal переустанови.

[kesha_good]

Pascal пишет: "File not found (sysutils.tpu)". И так со всеми версиями, которые я устанавливал. Что делать?

[L0K1]

В рот мне ноги, попробуи создать фаил

program lol;
begin
	writeln('This need to work!!');
end.

Затем

cmd.exe

cd c:\gde_legit_pascal\bin

c:\gde_legit_pascal\bin\tpc.exe t.pas

c:\gde_legit_pascal\bin\t.exe

#

Программисты помогите!!!

#

Наверное пора етих деятелеи банить навсегда за:

1. Неадекватное название тем, хотя есть топики но задачам на паскале, C и так далее

2. Неадекватные вопросы, к которым програмисты не имеIOт не малеишего отношения

[kesha_good]

Всё равно не получается. Пишет неизвестный идентификатор "floattostr" и "inttostr". Помогите хотя бы со второй задачей плиз.

[L0K1]

WRONG

writeln('сумма элементов массива равно ' fltostr(summa));
writeln('количество элементов массива: ' inttostr(i)); 

TRUE

writeln('сумма элементов массива равно ',summa);
writeln('количество элементов массива: ', i); 

Вроде так, но я pascal nog3a6bIJI

[kesha_good]

Помогите со второй задачей плииз!

[L0K1]

var
	a:array[1..10,1..15];
	sum:array[1..15];
	num:array[1..15];
	k:
	i,j,s,n:integer;
begin
	randomize;
	writeln('start:');
	for i:=1 to 10 do
	begin
		write ('row:',i,':');
		for j:=1 to 15 do
		begin
			a[i,j]:=radnom(10)+1;
			write(a[i,j]);
		end;
		writelen;
	end;
	for i:=1 to 15 do
	begin
		sum[i] := 0;
		num[i] := 0;
	end
	for j: =1 to 10 do
	begin
		for i : = 1 to 15 do
			if (a[j][i]>0) then
			begin
				sum[i] := sum[i]+ a[j][i];
				num[i] := num[i] + 1;
			end
	end
	write('Num:');
	for i : = 1 to 15 do
		write(num[i]);
	writeln()
	write('Sum');
	for i : = 1 to 15 do
		write(sum[i]);
end

Как-то так, но проверять не на чем..

And don't be a dump//