Привет, мне нужна помощь с домашней работой. Мое домашнее задание во вложениях.

1

Ответы и объяснения

  • Участник Знаний
2013-04-11T12:58:01+00:00

1)

Program Z1;
var m:array[1..12] of integer;
k,i,c:integer;
Begin
k:=-2;
c:=0;
For i:=1 to 10 do begin
m[i]:=k;
if k>0 then begin k:=k+2; k:=-k; c:=1; end;
if (k<0) and (c<>1) then begin k:=k-2; k:=-k; end;
write(m[i],' ');
c:=0;
end;
end.

2)

Program Z2;
var m:array[1..10000] of integer;
i,c,min,N:integer;
Begin
min:=320000;
Writeln('Введите длинну массива');
Readln(N);
For i:=1 to N do begin
Writeln('Введите элемент массива');
Readln(m[i]);
If (m[i]>0) and (min>m[i]) then begin min:=m[i]; c:=i;
end;
end;
writeln('минимальный среди положительных эллементов массива=',min, 'его номер=',c);
end.

Program Z3;
var m:array[1..10000] of integer;
i,N,sum:integer;
Begin
sum:=1;
Writeln('Введите размерность массива');
Readln(N);
For i:=1 to N do begin
Writeln('Введите эллемент массива');
Readln(m[i]);
if m[i]>0 then sum:=sum*m[i];
end;
writeln('Сумма положительных эллементов массива=',sum);
end.

(Проверено и откомпелировано на Pascal.NET,Если есть вопросы, пишите)