Форум «Всё о Паскале» > Задача с массивом

Помощь - Поиск - Пользователи - Календарь

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

nadja yak

17.03.2011 12:19

uses crt;
var a:array[1..100] of integer;
      n,i:byte;
begin
clrscr;
write('Размер массива n=');
readln(n);
writeln('Введите элементы массива:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:'); ;
for i:=1 to n do
write(a[i],' ');
writeln;
writeln('Элементы равные двум:');
for i:=1 to n do
if a[i]=2  then
 writeln('a[',i,']=',a[i]);
readln
end.

в чем ошибка?
почему выводит только когда двойка второй или третий элемент массива
если 1.3.4.5.6....-неверный ответ

Lapp

17.03.2011 12:54

Цитата(nadja yak @ 17.03.2011 12:19)

Виноваты полтергейст с барабашкой

. На моем компе их нет - и все работает правильно.
Вот, смотри (я, ессно, убрал clrscr - чур, меня, чур!)).

Running "h:\...\fp110317_nadja_yak\fp110317_nadja_yak.exe "
Размер массива n=4
Введите элементы массива:
a[1]=2
a[2]=2
a[3]=2
a[4]=2
Массив:
2 2 2 2
Элементы равные двум:
a[1]=2
a[2]=2
a[3]=2
a[4]=2

Running "h:\...\fp110317_nadja_yak\fp110317_nadja_yak.exe "
Размер массива n=5
Введите элементы массива:
a[1]=1
a[2]=3
a[3]=4
a[4]=5
a[5]=6
Массив:
1 3 4 5 6
Элементы равные двум:

Running "h:\...\fp110317_nadja_yak\fp110317_nadja_yak.exe "
Размер массива n=2
Введите элементы массива:
a[1]=2
a[2]=1
Массив:
2 1
Элементы равные двум:
a[1]=2

Running "h:\...\fp110317_nadja_yak\fp110317_nadja_yak.exe "
Размер массива n=4
Введите элементы массива:
a[1]=1
a[2]=1
a[3]=3
a[4]=2
Массив:
1 1 3 2
Элементы равные двум:
a[4]=2

Скажи, какие данные ты вводишь и как.

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.