Помогите пожалуйста. Через два дня судный день!

[junglistique]

Помогите пожалуйста. Через два дня судный день!

о великие гении, помогите с решением задач.

1. Дан одномерный массив X. Вывести номера элементов, удовлетворяющих условию 0 < Хi < 1.

2. Найти сумму элементов первого столбца.

3. Определить количество символов в предложении.

За ранее кланяюсь в ноги.

 

[Dram]

Можешь и чело разбить ненароком кланяясь, то. Язык какой?

 

[junglistique]

Можешь и чело разбить ненароком кланяясь, то. Язык какой?

паскаль

 

[Vladimir_S]

3. Определить количество символов в предложении.

VAR
 S:String;
BEGIN
 WriteLn('Enter the phrase:');
 ReadLn(S);
 WriteLn('N= ',Length(S));
 ReadLn;
END.

 

[Vladimir_S]

2. Найти сумму элементов первого столбца.

Первого столбца ЧЕГО???

 

[shrek=)]

А язык программирования какой?
Если паскаль то:

1. Дан одномерный массив X. Вывести номера элементов, удовлетворяющих условию 0 < Хi < 1.

var
x:array [1..10] of real;
i:integer;
begin
for i:=1 to 10 do begin
x[i]:=random(15)/10;
if (x[i]>0) and (x[i]<1) then write (i:3);
end;
readln
end.

2. Найти сумму элементов первого столбца.

var
a:array[1..5,1..5] of integer;
i,j,s:integer;
begin
s:=0;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
a[i,j]:=random(10);
write (a[i,j]:5);
end;
writeln;
end;
for i:=1 to 5 do
s:=s+a[1,i];
writeln (s);
readln
end.

3. Определить количество символов в предложении.

var
s:string;
k:integer;
begin
k:=0;
writeln ('enter string');
read(s);
k:=length(s);
writeln ('Количество символов',k);
readln
end.

P.S. Задание четче формулируйте, а то не понятно что от куда берется.

 

[junglistique]

А язык программирования какой?
Если паскаль то:

var
x:array [1..10] of real;
i:integer;
begin
for i:=1 to 10 do begin
x[i]:=random(15)/10;
if (x[i]>0) and (x[i]<1) then write (i:3);
end;
readln
end.

var
a:array[1..5,1..5] of integer;
i,j,s:integer;
begin
s:=0;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
a[i,j]:=random(10);
write (a[i,j]:5);
end;
writeln;
end;
for i:=1 to 5 do
s:=s+a[1,i];
writeln (s);
readln
end.

var
s:string;
k:integer;
begin
k:=0;
writeln ('enter string');
read(s);
k:=length(s);
writeln ('Количество символов',k);
readln
end.

P.S. Задание четче формулируйте, а то не понятно что от куда берется.

прошу прощения, но во второй задаче получается сумма строки, а не столбца

 

[Dram]

если нужен столбец то позволю поправить код shrek=)

var
a:array[1..5,1..5] of integer;
i,j,s:integer;
begin
s:=0;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
a[i,j]:=random(10);
write (a[i,j]:5);
end;
writeln;
end;
for i:=1 to 5 do
s:=s+a[i,1];    // переставляем счетчик на столбец
writeln (s);
readln
end.

П.С могу и ошибаться )

 

[junglistique]

Спасибо всем друзья !!!! Я вас люблю !!!

 

[Dram]

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

 

[junglistique]

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

В таком случае посоветуй какую-нибудь литературу, которая мне поможет освоить эту науку.

 

[Dram]

У Культина Н. В. есть неплохая литература по этому поводу...да и вообще много литературы..её просто надо подбирать под себя конкретно..т.к..базисные знания у всех разные