Здрасьте!!! вСЕМ ПРИЯТНОГО ВРЕМЕНИ СУТОК. Помогите мне пож-та решить 2 задачи по информатике. 1. Последовательность действительных чисел оканчивается нулем.Найти количество членов этой последовательности.
2.Сформулируйте квадратную матрицу порядка n по заданному абразцу:
1 0 0 ... 0 0 1
1 1 0 ... 0 1 1
1 1 1 ... 1 1 1
.. ... ... ... .. .. ..
n-1 n 0 ... 0 0 0
n 0 0 ... 0 0 0

ЗАРАНЕЕ СПАСИБО!!!

program zad1;

var
Count : integer;
V : real;

begin
Count := 0;
repeat
ReadLn (V);
Count := Count + 1;
until V = 0;
WriteLn (Count);
end.

че то не то. :)

спасибо, а с матрицей как?)

program zad2;

var
n, i, j, k, l : integer;

begin
ReadLn (n);
for i := 1 to n do begin
if i <= n div 2 then k := i else k := n - i+1;
if 2 * k = n + 1 then l := k - 1 else l := k;
for j := 1 to l do Write ('1 ');
for j := k + 1 to n-k do Write ('0 ');
for j := n-k+1 to n do Write ('1 ');
WriteLn;
end;
end.

спасибо!

люди помогите пож-та еще раз. учитель требует чтобы программа начиналась с var a:array[1..10] заранее спасибо!

Кол-во членов послед-ти не известно :confused: Последовательность нельзя загнать в массив :confused:

В принципе можно по тупому: указать большую размерность массива и вводить каждый член перебирая массив в цикле, до тех пор, пока введенное значение <> 0. А оставшие ячейки останутся бесполезными.

const N=20;
var i:byte;
x:integer;
mass:array[1..N] of integer;
begin
for i:=1 to N do begin
readln(x);
if x<>0 then mass[i]:=x
else begin
write(i);
break
end
end.

Кол-во членов <= N

mass и byte break и const мы не проходили( можно их заменить?

да походу все, что вы проходили это Марио водопроводчик )))

mass - имя переменной, мб любая
byte - типа переменной, замени на integer
break - конец цикла, мож убрать, но я бы оставил
const - константа

)))...

Это ты должен знать :) раз сдаешь информатику. И не надо ждать когда вы это пройдете. Надо самому заниматься ;)

плиз кто нибудь!!! ей данные варианты не понравились(((

Чем не понравились?

первую она еще переварила, а вот вторую нет(

первую она еще переварила, а вот вторую нет(

Ты сформулируй какие требования, эта сука старая, предъявила к этой чертовой ерундовой задаче?

Я могу тебе помочь. Советом. Учись, это полезно.

Спасибо!

Помогите пож-та со второй задачей (матрицей) и у первой нужна блок схема

Помогите пож-та со схемами)))