|
|
| Тема |
 Задача на Паскал |
|
| Автор | дaни (Нерегистриран) | |
| Публикувано | 13.10.05 16:06 |
|
|
|
Предполагам, че това което ще питам е елементарно за вас и се надявам, че все пак ще ме удостоите с някакъв отговор 
Условието на задачата е:
Масив от 1000 елемента, въвежда се число от потребителя и трябва да се намери най-малкото четно число, което е по-голямо от това, което потребителя е въвел.
Искам да променя тази част, която е в червено, но все нещо не излиза както трябва:
Program PIK (Input, Output);
const
N=1000;
var
B, C, X, i: Integer;
A: array [1..N] of Integer;
begin
WriteLn;
for i:=1 to N do
begin
WriteLn ('Въведете стойности №',i,' за елементите на масива А');
ReadLn (A);
end;
WriteLn;
WriteLn ('Въведете стойност за Х'); ReadLn (X);
for i:=1 to N do
begin
B:=A mod 2;
if B=0 then
if A > X then C:=A;
end;
for i:=1 to N do
begin
B:=A mod 2;
if B=0 then
if A > X then
if A < C then
C:=A;
end;
WriteLn;
WriteLn ('Tarsenata stoinost e: ',C:6:2)
end.
ако можете да ми помогнете, ще бъде чудесно
| |
| |
| 
|
|
