const N = 10; var a: array[1..N] of integer; i: integer; begin write('До замены: '); for i := 1 to N do begin a[i] := random(100); write(a[i], ' '); end; writeln;write('После замены: '); for i := 1 to N do begin if(a[i] mod 2 = 0)then a[i] := a[i] * (-1); write(a[i], ' '); end; end.
{ задание 1} const n=17; var a:array[1..n] of integer; i,k:integer; begin Randomize; k:=0; for i:=1 to n do begin a[i]:=Random(99)+1; Write(a[i],' '); if a[i] mod 2=0 then k:=k+1 end; Writeln; Writeln('k=',k) end.
{ задание 2/3} const n=17; var a:array[1..n] of integer; i,s:integer; begin Randomize; s:=0; for i:=1 to n do begin a[i]:=Random(99)+1; Write(a[i],' '); if a[i] mod 10=2 then s:=s+a[i] end; Writeln; Writeln('s=',s) end.
По выполняемым функциям и возможности применения информационные технологии делят на используемые:1) в автономных компьютерах (ПЭВМ) и в локальных рабочих станциях (АРМ) в составе сетевых автоматизированных информационных систем (АИС) реального времени;2) в объектно-ориентированных, распределённых, корпоративных и иных локальных и сетевых информационно-поисковых, гипертекстовых и мультимедийных системах;3) в системах с искусственным интеллектом;4) в интегрированных АИС;5) в геоинформационных, глобальных и других системах.
const N = 10;
var
a: array[1..N] of integer;
i: integer;
begin
write('До замены: ');
for i := 1 to N do begin
a[i] := random(100);
write(a[i], ' ');
end;
writeln;write('После замены: ');
for i := 1 to N do begin
if(a[i] mod 2 = 0)then a[i] := a[i] * (-1);
write(a[i], ' ');
end;
end.