Вот мой исходник, можете рассказать, и дописать код,чтобы еще выводил правильно нули, массив а[i] b[k]. а то ничего не получается
Примечание:
uses crt;
const n=10;
type mas=array [1..n] of real;
var input,output:textfile;
i,j,countNull,k:integer;
a,c,b:mas;
p,l:integer;
begin
countNull:=0;
j:=0;
k:=0;
assignfile(input,'input.txt');
assignfile(output,'output.txt');
rewrite(output);
reset(input);
for i:=1 to n do
read(input,c[i]);
if c[i]>0 then
begin
j:=j+1;
a[j]:=c[i];
write(output,a[j])
end
else
begin
if c[i]<0 then
begin
k:=k+1;
b[k]:=c[i];
end
else
countNull:=countNull+1;;
end;
write(output,'нулей',' ',countnull);
closefile(input);
closefile(output);
readkey;
end.
Примечание:
вот основная задача
Из компонентов исходного файла сформировать массивы положительных и отрицательных простых чисел. Вычислить количество нулевых компонентов исходного файла. Входящий файл input.txt, вывод осуществляется в файл output.txt.
Примечание:
Сам доделал,но спс всем. кому интересно
uses crt;
const n=10;
type mas=array [1..n] of real;
mas1=array [1..n] of real;
mas2=array [1..n] of real;
var input,output:textfile;
i,j,countNull,k:integer;
c:mas;
a:mas1;
b:mas2;
p,l:integer;
begin
countNull:=0;
j:=0;
k:=0;
assignfile(input,'input.txt');
assignfile(output,'output.txt');
rewrite(output);
reset(input);
countNull:=0;
for i:=1 to n do
begin
read(input,c[i]);
if c[i]>0 then
begin
j:=J+1;
a[j]:=c[i];
write(output,a[j],' ');
end;
end;
write(output,' /отрицательные');
for i:=1 to n do
if c[i]<0 then
begin
k:=k+1;
b[k]:=c[i];
write(output,b[k],' ');
end;
for i:=1 to n do
if c[i]=0 then
countNull:=countNull+1;;
write(output,'/','нулей',' ',countnull);
closefile(input);
closefile(output);
readkey;
end.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.