Одномерный числовой массив ....+блок схема

@Krendele4ek · Регистрация: 17.12.2010

Author24 — интернет-сервис помощи студентам

Посчитать число компонентов целого массива из 10 элементов лежащих на отрезке [a,b]

Помогите найти ошибку....
и составить блок схему
Заранее спасибо.

Program Lab10;
Var x:array[1..10] of integer;
a,b,counter,i;integer;
Begin
Write('a=');
readln(a);
Write('b=');
readln(b);
Writeln;
for i:=1to 10 do
Begin
Write('x[',i:2,']=');
readln(x[i]);
end;
Writeln('counter=');
if a>b then
if x[i]<=a then
if x[i]>=b then
counter:=counter+1;
if a<b then
if x[i]<=b then
if x[i]>=a then
counter:=counter+1;
Writeln('x[',i,']=',x[i]:2);
readln(x[i],x:2);
end.

@кот Бегемот · 12.01.2011, 22:14

Krendele4ek, ты язык не путаешь? Эта прога на Паскале!!! А здесь Бейсик

@Krendele4ek 0 / 0 / 0 Регистрация: 17.12.2010 Сообщений: 12
		1
	Одномерный числовой массив ....+блок схема 12.01.2011, 21:11. Показов 1103. Ответов 1 Метки нет (Все метки) Посчитать число компонентов целого массива из 10 элементов лежащих на отрезке [a,b] Помогите найти ошибку.... и составить блок схему Заранее спасибо. Program Lab10; Var x:array[1..10] of integer; a,b,counter,i;integer; Begin Write('a='); readln(a); Write('b='); readln(b); Writeln; for i:=1to 10 do Begin Write('x[',i:2,']='); readln(x[i]); end; Writeln('counter='); if a>b then if x[i]<=a then if x[i]>=b then counter:=counter+1; if a<b then if x[i]<=b then if x[i]>=a then counter:=counter+1; Writeln('x[',i,']=',x[i]:2); readln(x[i],x:2); end. 0

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	12.01.2011, 22:14	2
	Krendele4ek, ты язык не путаешь? Эта прога на Паскале!!! А здесь Бейсик 0