Ответы на вопрос:
Разделитель страниц- позволяет осуществить разбиение текста при просмотре в публичной части сайта.
var i,s,p: integer; a: array [1..100] of integer;
begin
s: =0; p: =0;
writeln('vvedite masiv a: ');
for i: =1 to 10 do begin
write('a[',i,']=');
readln(a[i]);
end;
for i: =1 to 10 do begin
if a[i]> 0 then s: =s+a[i];
end;
s: =s*2;
writeln('udvoennaya suma polozhitelnih elementov=',s);
writeln('indexi elementov kotorie bolshe prediduschego: ');
writeln;
for i: =2 to 10 do begin
if a[i]> a[i-1] then write(i,', ');
end;
for i: =2 to 10 do begin
if ((a[i]> =0) and (a[i-1]> =0)) or ((a[i]< 0) and (a[i-1]< 0)) then p: =p+1;
end;
writeln;
if p> 0 then writeln('masiv imeet pari sosednih elementov s odnakovimi znakami') else writeln('masiv ne imeet pari sosednih elementov s odnakovimi znakami');
readln(s);
end.
Популярно: Информатика
-
avicena111120.10.2020 04:22
-
мик27101.04.2020 19:04
-
Krikaiz31.07.2021 07:34
-
zska2507.05.2020 06:31
-
Kate90502.07.2020 04:38
-
123киівміша14.09.2020 04:26
-
343271456629.09.2020 03:32
-
NikitaSuperkryt22820.11.2021 11:19
-
aleksandr1708200429.01.2022 14:07
-
micser201710.07.2020 00:26