Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Помогите пожалуйста, очень трудная программа, Паскаль (http://www.tehnari.ru/f41/t95873/)

Madara 18.04.2014 16:44

Помогите пожалуйста, очень трудная программа, Паскаль
 
Вложений: 1
Срочно нужна помощь,пожалуйста помогите, не могу написать верно без компьютера

poiu 18.04.2014 17:35

type
mas = array[1..10] of integer;

const
A: mas = (1, 0, -3, 0, 5, 0, 7, -8, 9, -10);
B: mas = (0, 2, -3, 4, 0, -6, -7, 0, 0, 10);

var
i: byte;
c, s: integer;

function count_null(m: mas): integer;
begin
c:= 0;
for i:= 1 to 10 do
begin
if m[i] = 0 then c:= c+1;
end;
result:= c;
end;

function count_minus(m: mas): integer;
begin
s:= 0;
for i:= 1 to 10 do
begin
if m[i] < 0 then s:= s + m[i];
end;
result:= s;
end;

begin
if count_null(A) > count_null(B) then writeln('A > B')
else writeln('B > A');
writeln(count_minus(A));
writeln(count_minus(B));
readln;
end.

Madara 18.04.2014 17:37

огромное спасибо!!

Madara 20.04.2014 15:47

Я как всегда не могу понять что требуется:D
А так задача наипростейшая:D

Я сначала значит написал верно, только через процедуру одну, просто сам себе не доверяю)


Часовой пояс GMT +4, время: 16:32.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.