Запишите, , на языке паскаля. условие : подсчитать кол-во положительных чисел среди чисел a, b, c .

vara,b,c,n,i: integer; beginn: =0; readln(a); readln(b); readln(c);

if a> 0 thenn: =n+1; if b> 0 thenn: =n+1; if c> 0 thenn: =n+1; writeln('kolichestvo polozitelnich=', n)end.

program abc;

var a, b, c: real;

var i: integer;

begin

writeln ('введите число а');

readln (a);

writeln ('введите число b');

readln (b)

тоже самое и для с

i: =0

if a> 0 then i: =i+1

тоже самое только для б и с

writeln ('число положительных чисел = , 'i);

end. 

 

информационные процессы в живой природе распространены гораздо больше, чем это может показаться на первый взгляд. с ними связано опадение листвы осенью, прорастание цветов весной и другие привычные явления. способность хранить, передавать и получать информацию — одна из особенностей живой материи. без нее невозможен нормальный обмен веществ, приспособление к условиям окружающей среды, обучение и так далее. информационные процессы в неживой природе также существуют, но отличаются несколькими особенностями и в первую очередь выступают в качестве меры системы

программу надо сохранить на диск и запустить ее, после этого в папке с этой программой появится файл "output.txt", его надо открытью

первые 5 чисел одинаковые

после их будут идти 7 любых чисел

потом сумма 10 рандомных чисел

затем произведение 10 случайных чисел

программа:

var a,i: integer;

t: text;

begin

assign(t,'output.txt');

rewrite(t);

a: =random(100);

for i: =1 to 5 do begin write(t,a,' '); end;

writeln;

for i: =1 to 7 do begin write(t,random(100),' '); end;

writeln;

a: =0;

for i: =1 to 10 do begin a: =a+random(100); end;

write(t,a,' ');

a: =1;

for i: =1 to 10 do begin a: =a*random(100); end;

writeln(t,a);

close(t);

end.