const n=10; var i:integer; c:array[1..n] of integer; begin Write('Введите элементы массива: '); for i:=1 to n do Read(c[i]); for i:=1 to n do if c[i]>0 then c[i]:=sqr(c[i]) else if c[i]<0 then c[i]:=20; for i:=1 to n do Write(c[i],' '); Writeln end.
3. Улучшенное "школьное" решение
const n=10; var i,t:integer; c:array[1..n] of integer; begin Write('Введите элементы массива: '); for i:=1 to n do begin Read(t); if t>0 then c[i]:=t*t else if t<0 then c[i]:=20 end; for i:=1 to n do Write(c[i],' '); Writeln end.
Program zadacha;varA: array[1..8] of integer;i,kolvo_pol,proiz_otr: integer;beginfor i:=1 to 8 do read(A[i]);kolvo_pol:=0;proiz_otr:=1; for i:=1 to 8 do beginif A[i]>0 then kolvo_pol:=kolvo_pol+1;end;writeln();writeln('kolvo_pol = ', kolvo_pol); for i:=1 to 8 do beginif A[i]<0 then proiz_otr:=proiz_otr*A[i];end;writeln('proiz_otr= ', proiz_otr);end.
program zadacha;varC: array[1..10] of integer;i: integer;beginfor i:=1 to 10 do read(C[i]);writeln(); for i:=1 to 10 do beginif C[i]>0 then C[i]:=sqr(C[i]);end; for i:=1 to 10 do beginif C[i]<0 then C[i]:=20;end; for i:=1 to 10 do write(C[i]:6);end.
64мб= 123000 килобайт
0,128 мб= 0,950 байт
0,8гб= 3мег
24756бит=1000 килобайт