Скласти з масиву К масив А, що містить тільки позитивні елементи масиву К. (Мова програмування - Pascal);
Файл input.txt: -2 4 7 -1 0 -5 7 -3 5 ; //всі числа записані через ОДИН пробіл.
Ось код програми, яку я написав до цієї задачі:
program num_30;
var K,A:array[1..9]of integer;
i:integer;
f:text;
begin
assign(f,'input.txt');
reset(f);
for i:=1 to 9 do
begin
read(f,K[i]);
if K[i]>0
then
begin
A[i]:=K[i];
end;
end;
close(f);
writeln(K);
write(A);
end.
Вопрос состоял в следующем, я не уверен, что ноли, которые программа присваивает массиву, соответствуют условию задачи.
Я паранойю, или же все верно и так должно быть?
