Нужна найдите ошибки в программе: programm qq; uses crt; var x , y: integer; z: real begin x : = 1; y : = 2; z : = -1.75; if x (знак меньше или равно) y then x : = z; else x : = z; if x (перечеркнутое равно/не равно) y then y : = z + 1; for i = 1 to 8 do begin f : = (x - y) / i ; written (f); end;
В вычислительной технике архитектура определяет состав, назначение, логическую организацию и порядок взаимодействия всех аппаратных и программных средств, объединенных в единую вычислительную систему. Иными словами, архитектура описывает то, как ЭВМ представляется пользователю.
В современных ПК используется принцип открытой архитектуры: устройства, которые участвуют в обработке информации (процессор, оперативная память и т.д.) соединяются с отстальными устройствами единой магистралью - так называемой шиной.
Периферийные устройства - устройства, связанные с процессором через шину (шина - канал передачи данных в виде проводников на печатной плате или многожильного кабеля.)
a:array[1..10]of integer;
i,n,k:integer;
begin
readln(n);
for i:=1 to 10 do
begin
read(a[i]);
if a[i]< 0 then
a[i]:=n;
end;
for i:=1 to 10 do
write(a[i],' ');
end.
2)
var
a:array[1..999999]of integer;
i,n,s:integer;
begin
readln(n);
for i:=1 to n do
begin
a[i]:=random(36)-15;
write(a[i],' ');
end;
writeln;
for i:=1 to n do
if abs(a[i])>10 then
write(a[i],' ');
end.
3)
var
a:array[1..999999]of integer;
i,n,s:integer;
begin
readln(n);
for i:=1 to n do
begin
a[i]:=random(36)-15;
write(a[i],' ');
end;
writeln;
for i:=1 to n do
begin
if i mod 3 = 0 then
if a[i]<0 then
a[i]:= a[i]*a[i]*a[i];
write(a[i],' ');
end;
end.