Одномерный массив (PASCAL)

[KirillP]

Дан одномерный массив X[n].Найти количество элементов массива ,кратных 5.Напечатать все положительные элементы массива.
Ребят буду очень благодарен! Долг по практике остался !

[Dequick]

var 
a: file; i: byte; j: byte; mas: array[0..100] of integer;
n; integer; 

begin
write('Введите количество элементов массива: ');{не больше 100 }
readln(n);
n:=n-1
assign(a,'test.txt');
reset(a,1);   {открываем файл для чтения}
writeln('элементы массива:')
for i:=0 to n do
begin
blockread(a,mas[i],sizeof(mas[i]));
writeln(mas[i],'   ');
end;
close(a);
j:=0
writeln('Кратные 5:');
for i:=0 to n
begin
if mas[i] mod 5:=0 then
begin
writeln(mas[i]);
j:=j+1;
end;
end;
write('Количество элементов кратные 5: ',j)
readln
end.

что-то вроде этого...

[Mad_Cat]

Dequick ну почти)
у аффтара

Найти количество элементов массива ,кратных 5

у вас находятся сами элементы

for i:=0 to n do

буит out of range так как

mas: array[1..10] of integer;

[KirillP]

Спасибо огромное ! а как будет выглядить программный код без подпрограммы,модуля и файлов?Спасибо!

[Mad_Cat]

а где вы тут увидали подпрограммы и тем более модули?????

[Serge_Bliznykov]

Dequick
1) используте не тег "Цитата", а тэг [СODE]..[/CODE] для оформления кода (ещё не поздно нажать редактировать на Вашем посте и ручками исправить [QUOTE] на -> [CODE]

2) в коде ГРУБАЯ ошибка - массив объявлен от 1 до 10
а обращение идёт от нуля!!!!

3) коде ГРУБАЯ ошибка - n не задаётся!

4) использовать BLOCKREAD для чтения элементов массива — это реально круто!!! Только в этом случае файл не может быть текстовый.
Лучше, всё же использовать банальные Read(f, mas[i]) (или ReadLn(...);

5) положительные элементы массива не выводятся на печать.

p.s. но для первого поста на форуме вполне сносно. Поздравляю!

[KirillP]

Сообщение от Mad_Cat

а где вы тут увидали подпрограммы и тем более модули?????

Извеняюсь) Как будет выглядеть программный код ,без добавления в скобках моего задания?Спасибо огромное!

[Dequick]

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

[Mad_Cat]

then writeln(mas[i]) and j:=j+1;

а это что за диалект Паскаля?

модули вроде подключаются командой include

в паскале модули подключаются командой uses

[Dequick]

А, точно uses crt)))