массивы, помогите решить задачу Опции

[oksana_]

Создать текстовой массив из 14 элементов ( длинна от 3 до 15 символов), которые вводятся с клавы. Сосчитать и вывести на экран, сколько целых чисел в каждом массиве?

[nikitossssss]

Напиши задачу понятнее, массив у тебя один, а ты написала что нужно сосчитать колво элементов в каждом массиве, потом если я верно понял в массив нужно ввести и буквы и символы, а вывести только умму символов?

[oksana_]

Напиши задачу понятнее, массив у тебя один, а ты написала что нужно сосчитать колво элементов в каждом массиве, потом если я верно понял в массив нужно ввести и буквы и символы, а вывести только умму символов?

а сосчитать и вывести на экран, сколько содержит целых чисел каждый элемент массива.

[nikitossssss]

а сосчитать и вывести на экран, сколько содержит целых чисел каждый элемент массива.

Например я вовжу 1, f, 5, 8, 9 q,x
И вывожу 1 элемент -1
3 элемент - 5
4 элемент - 8 и т.д.
так??

[oksana_]

Например я вовжу 1, f, 5, 8, 9 q,x
И вывожу 1 элемент -1
3 элемент - 5
4 элемент - 8 и т.д.
так??

да

[nikitossssss]

Прошу, я конечно не доконца понял что вам надо, но думаю я справился, в любом случае пишите если что, постораюсь исправить, очень хотелось бы увидеть ваш отзыв

program misss;

var
bukvi : set of 'a'..'z';
mas1 : array[1..10] of char;
mas2 : array[1..10] of integer;
mas3 : array[1..10] of integer;
i,j : integer;

begin
writeln('vvedite col-vo simvolov');
readln(j);
for i:=1 to j do begin
writeln('vvedite simvol');
readln(mas1[i]);
end;

for i:=1 to j do begin
if mas1[i] in bukvi then mas1[i] :='0';
end;

for i:=1 to j do begin
val(mas1[i],mas2[i],mas3[i]);
end;

for i:=1 to j do begin
writeln(mas2[i],' soderjit celax chisel ',mas2[i]);
end;

end.

[nikitossssss]

В предыдущем моём коде есть некоторые недочёты, так что вот обработанный:

program misss;

var
bukvi : set of 'a'..'z';
mas1 : array[1..100] of char;
mas2 : array[1..100] of integer;
mas3 : array[1..100] of integer;
i,j : integer;

begin
writeln('vvedite col-vo simvolov');
readln(j);
for i:=1 to j do begin
writeln('vvedite simvol');
readln(mas1[i]);
end;

for i:=1 to j do begin
if mas1[i] in bukvi then mas1[i] :='0';
end;

for i:=1 to j do begin
val(mas1[i],mas2[i],mas3[i]);
end;

for i:=1 to j do begin
writeln(i,' soderjit celix chisel ',mas2[i]);
end;

end.